Addo
18 de Diciembre del 2002

Gracias por responder yo tengo 3 Text en 1° va el codigo y en los siguientes nombre y apellido yo quiero q cuando ponga el codigo aparesca automaticamente los demas utilizando ADO como cuando se hace una busqueda por letras si alguien me pueden ayudar se lo agradesco de ante mano.

ccortes
18 de Diciembre del 2002

PUEDES USAR UN LOSTFOCUS MAS O MENO ASI
Private Sub Text1_LostFocus()
'Declaro las variables
Dim moRecordset As New ADODB.Recordset
Dim msSql As String
Dim mbEncontro As Boolean
' Creo el SQL

mbEncontro = False

If Trim(txt1.Text) <> "" Then

mbEncontro = True
msSql = " Select * "
msSql = msSql + " from TABLA "
msSql = msSql + " Where CODIGO =" + Trim(Text1)

End If

'Ejecuto la sentencia en SQL
If Trim(msSql) = "" Then Exit Sub
If mbEncontro = False Then Exit Sub

moRecordset.Open msSql, goDatabase, adOpenDynamic, adLockOptimistic
If Not moRecordset.EOF And Not moRecordset.BOF Then
Do While Not moRecordset.EOF
Txt2.Text = Trim(moRecordset.Fields(1).Value)
Txt3.Text = Trim(moRecordset.Fields(2).Value)
moRecordset.MoveNext
Loop
moRecordset.Close
End If
End Sub