改为这个看看
If Not IsNull(Me.date1) Then
strWhere = strWhere & "([日期] >= #" & Format(Me.date1, "yyyy-mm-dd hh:mm:ss") & "#) AND "
End If
If Not IsNull(Me.date2) Then
strWhere = strWhere & "([日期] <= #" & Format(Me.date2, "yyyy-mm-dd hh:mm:ss") & "#) AND "
End If