Visual Basic - FIND

Cuando uso FIND para preguntar si el número y nombre existen en una tabla me dice siempre que sí, por más que no exista el numero o el nombre.
Donde está el error ???
With Ado.Recordset
.MoveFirst
.Find "cajero_numero = " & Val(txtnumero.Text) & " And (cajero_nombre = ' " & txtnombre.Text & "')" ' esto es lo que siempre dice que sí y salta al mensaje.
If .EOF Then
.AddNew
.Fields("cajero_numero") = Val(txtnumero.Text)
.Fields("cajero_nombre") = txtnombre.Text
.Fields("cajero_lote") = txtlote.Text
.Update
Else
MsgBox " El cajero Nº " & txtnumero.Text & vbCrLf & " o el nombre " & txtnombre.Text + " ya existen.", vbExclamation + vbOKOnly, " Leer mensaje"
End If
End With

Creo que el método FIND se deberá emplear en alguno de sus formatos :
FINDFIRST
FINDNEXT
FINDPREVIOUS
FINDLAST

Te digo ésto por si fuese la solución, ya que empleas solo FIND.

Un saludo.

Creo que el método FIND se deberá emplear en alguno de sus formatos :
FINDFIRST
FINDNEXT
FINDPREVIOUS
FINDLAST

Te digo ésto por si fuese la solución, ya que empleas solo FIND.

Un saludo.