Hola amigos, como comprenderan soy nuevo en esto .....y estoy comprobando lo duro que es ser autodidacta.....bueno ahi les va ..quisiera saber como puedo mejorar este codigo, pues me consigue solo el primer registro de la tabla pero los posteriores no....ah y si pueden darme un ejemplo en codigo de como se usa el metodo FIND del Recordset de un control Adoc se los agradeceria en el alma ......Bye espero me puedan ayudar.
Private Sub Buscador_LostFocus()
Dim rs As Recordset
Dim VarX As String
Dim Encontrado As Integer
Set rs = AdocClientes.Recordset
txtCedula.Text = rs!cedula
Encontrado = 1
VarX = Buscador.Text
rs.MoveFirst
If (rs!cedula = VarX) Then
Encontrado = 1
MsgBox ("Hayado 1 registro")
Else
Encontrado = 0
MsgBox ("No Hayado")
End If
If Encontrado = 1 Then
txtCedula.Text = rs!cedula
txtNombreCliente.Text = rs!NombreCliente
txtNroCuenta.Text = rs!NroCuenta
txtTpoNomi.Text = rs!TpoNomi
txtTpoCuenta.Text = rs!TpoCuenta
txtDireccionHabt.Text = rs!DireccionHabt
txtTelfHabt.Text = rs!TelfHabt
txtTelfMovil.Text = rs!TelfMovil
txtDirecTrbjo.Text = rs!DireccionTrbjo
txtTelfTrbjo.Text = rs!TelfTrbjo
txtRefciaFamiliar.Text = rs!RefciaFamiliar
Else
If Encontrado = 0 Then
rs.AddNew
txtCedula.Text = Buscador.Text
txtCedula.SetFocus
End If
End If
End Sub
Mostrar Mensajes
muchas gracias a ambos los dos ejemplos me han ,dado la oportunidad de tener mas alternativas con respecto a este tema ....vale 
Esto me tiene molesto....quiero que me ayudeis con una rutina para bucar un regisrto en una tabla de datos ...ya anteriormente los exprese en una discucion anterior ayudadme por favor...... 
Hola a todos el caso es el siguiente, tengo una base de datos de Access 2000 que quiero manejar con VB, Existe en ella una tabla llamada clientes a la cual acceso por medio de un control ADOC. esta tabla se va a llenar atraves de un formulario con varios cuadros de texto contentivos de informacion,,,, lo que quiero es que al rellenar el cuadro de texto del "Nro de identifcacion o pasaporte" un metodo ejecute una busqueda en la tabla y si este numero existe en la tabla rellene los demas campos con la informacion contenida en el tabla ,.....y si no lo consigue prepare el recordset para incluir la informacion manualmente......espero me podais ayudar y de antemano gracias............ 
Vaya hombre respondedme arriba esta mi pregunta Please..........
