在MS Access 2016 32位中使用3个多选列表框和一个日期范围构建VBA Sql语句

Dim strSQL As String
Dim strCondition As String

' 判断多选列表框1的值是否为空
If Not IsNull(Me.ListBox1.Value) Then
    ' 将多选列表框1的值添加到查询条件中
    strCondition = strCondition & "字段1 IN (" & Me.ListBox1.Value & ") AND "
End If

' 判断多选列表框2的值是否为空
If Not IsNull(Me.ListBox2.Value) Then
    ' 将多选列表框2的值添加到查询条件中
    strCondition = strCondition & "字段2 IN (" & Me.ListBox2.Value & ") AND "
End If

' 判断多选列表框3的值是否为空
If Not IsNull(Me.ListBox3.Value) Then
    ' 将多选列表框3的值添加到查询条件中
    strCondition = strCondition & "字段3 IN (" & Me.ListBox3.Value & ") AND "
End If

' 判断日期范围选择框的值是否为空
If Not IsNull(Me.DateRange.Value) Then
    ' 将日期范围选择框的值添加到查询条件中
    strCondition = strCondition & "日期字段 BETWEEN #" & Format(Me.DateRange.Value(0), "yyyy/mm/dd") & "# AND #" & Format(Me.DateRange.Value(1), "yyyy/mm/dd") & "# AND "
End If

' 去除最后一个AND
strCondition = Left(strCondition, Len(strCondition) - 5)

' 构建完整的SQL语句
strSQL = "SELECT * FROM 表名 WHERE " & strCondition

' 执行查询操作
Dim rs As DAO.Recordset
Set rs = CurrentDb.OpenRecordset(strSQL)

' 处理查询结果
If Not rs.EOF Then
    rs.MoveFirst
    Do Until rs.EOF
        ' 处理每一条记录
        ' ...
        rs.MoveNext
    Loop
End If

' 关闭记录集
rs.Close
Set rs = Nothing