Consulta en la validacion de un textbox

[edel_junior]

buenas

trato de realizar una consulta en la validacion de un textbox y tengo el siguiente codigo para ello

Dim criterio As String
Dim Buscado As String
Data1.Recordset.MoveFirst
buscado=tex1.Text
criterio = "CUIT = " + buscado
Data1.Recordset.Find criterio
If Data1.Recordset.NoMatch Then
MsgBox "El CUIT no existe "
Exit Sub
End If
y digito los datos al validar el text box da
error '3426' en tiempo de ejecucion
Esta accion fua cancelada por el objeto asociado

y al depurar me manda a la linea:
data1.recordset.movefirst
luego sin hacer nada en el codigo lo vuelvo ejecutar y entonces realiza la consulta y mustra los datos
que pasa
ahi otra manera de hacer esto
ayudenme