Private Sub Search_Click()
Dim strWhere As String
Dim lngLen As Long
Const conJetDate = "\#mm\/dd\/yyyy\#"
If Not IsNull(Me.AssignedTo) Then
strWhere = strWhere & "([AssignedTo] Like ""*" & Me.AssignedTo & "*"")"
End If
If Not IsNull(Me.OpenedBy) Then
strWhere = strWhere & "([OpenedBy] Like ""*"...