ListView buscar

¡ Hola !
Disculpen la molestia tengo un problema estoy realizando un proyecto de ListView con base de datos access de consulats de maosientes y en la busqueda me busca la fecha bien pero quisiera que me buscara la fecha y el examen osea que los dos coincidan que si los encuentra los muestre y si no no muestre nada ya que no hay a qui esta el codigo

Public Sub Filtrar()
Dim Campo, OrderByCampo, Orden As String
Dim SQL As String
If Combo1.ListIndex = -1 Then
Combo1.ListIndex = 0
End If
If Combo2.ListIndex = -1 Then
Combo2.ListIndex = 0
End If

If Combo1.ListIndex = 0 Then
Campo = "Id"
ElseIf Combo1.ListIndex = 1 Then
Campo = "FechaRegistro"

End If

Select Case Combo2.ListIndex
Case 0: OrderByCampo = "Id"
Case 4: OrderByCampo = "FechaRegistro"
End Select

' si el recorset está abierto lo cierra
If rs.State = adStateOpen Then
rs.Close
End If

SQL = "SELECT * FROM Personas Where " & _
Campo & " like '" & txtSearch & _
"%' order by " & OrderByCampo & " " & Orden

rs.Open SQL, cnn, adOpenStatic, adLockOptimistic

Call CargarListView(FrmPrincipal.LV, rs)

End Sub