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

MIRA LO QUE SUCEDE ES LO SIGUIENTE SI USAS EL METODO FIND
FIND EMPIEZA A BUSCAR DESDE LA POSICION EN QUE TE ENCUENTRAS LO QUE ES VENTAJOSO EN UN SENTIDO AHORA BIEN SI BUSCA UN CRITERIO QUE ESTA EN LA POSICION 2 Y ESTAS EN LA POSICION 3 TE SALE EL MENSAJE QUE NO EXISTE AUNQUE EXISTA PORQUE EL BUSCA SIEMPRE HACIA AL FRENTE ENTONCES LA PROPIEDAD EOF SE HACE TRUE SIEMPRE QUE EL CRITERIO NO EXISTA LO QUE PODRIAS HACER ES HACER QUE EL RECORDSET SE VAYA A AL PRIMER REGISTRO Y EMPIECE A BUSCAR DESDE AHI
ESPERO TE SIRVA SALUDOS...