Visual Basic - Find en recordset ADODB

No puedo utilizar AND en un criterio de un FIND de un simple recordset ADODB.
Gracias.

La funcion Find del Visual el muy limitado, solo sirve para filtrar por un campo, lo que yo hago es usar sentencias sql por ejemplo
Dim rsWork As ADODB.Recordset
sql = "SELECT * FROM TABAL WHERE CAMPO1 = '" & txtcampo & "'"
sql = sql & " AND CAMPO2 > " & intCampo
Set rs = New ADODB.Recordset
Set rs.ActiveConnection = cn
With rs
.CursorLocation = adUseClient
.CursorType = adOpenKeyset
.LockType = adLockReadOnly
.Open sql
End With
If rs.EOF Then
Set rs.ActiveConnection = Nothing
rs.Close
Else
Set rs.ActiveConnection = Nothing
rs.Close
MsgBox "Registro ya Existe"
End If
Saludos desde Lima