主题：查询异常

改成比如

Dim Filter As String = "1=1"
With e.Form.Controls("姓名3")
    If .Value IsNot Nothing Then
        Filter = Filter & " and 姓名 = '" & .Value & "'"
    End If
End With
With e.Form.Controls("工作日期3")
    If .Value IsNot Nothing Then
        Filter = Filter & " and 工作日期 = #" & .Value & "#"
    End If
End With