Visual Basic - no funciona mi FindFirst

Buenas, necesito que me ayuden con lo siguiente:
tengo un formulario(frmClientes) con control data(datClientes) y varios textBox(txtNombre, txtApellidos, txtDni, etc....) y hago lo que a continuacion les indico y no me funciona una veces por un error y otras por otro.

Dim criterio As String
criterio="Nombre = " & texNombre.text & " And " Dni " & textDni.text & ""
datClientes.Recordset.FinFirst (criterio)
If datClientes.Recordset.NotMatch = False Then
Msgbox("Cliente en base de datos")
Else
datClientes.Recordset.AddNew
datClientes.Recordset=(txtNombre.text)
datClientes.Recordset=(txtApellidos.text)
datClientes.Recordset=(txtDni.text)
etc...
datClientes.Recorset.Update
' luego limpio los txt
txtNombre.text= ""
txtApellidos.text=""
etc..
End If
End Sub

Creo que te faltan las comillas simples en la expresión de criterio
Tienes;
criterio="Nombre = " & texNombre.text & " And " Dni " & textDni.text & ""

Debe ser:
criterio="Nombre =' " & texNombre.text & "' And " .
Las comillas simples despues del = y antes del And van en los casos en que el campo es texto. Si Dni es numérico no las lleva.
Otro concejo si es que estás iniciando: Tan pronto como puedas, abandona el uso de controles para manejar los datos.
Utiliza siempre sentencias sql puras y recordsets