ayuda con bases de datos

[jose58]

yo lo hago asi pero con acces 2000 usando ado

Private Sub Command3_Click()
Adodc1.Recordset.MoveFirst
While Not (Adodc1.Recordset.EOF)
If Text1.Text = Adodc1.Recordset.Fields.Item(0) Then
Text2.Text = Adodc1.Recordset.Fields.Item(1)
Text3.Text = Adodc1.Recordset.Fields.Item(2)
Text5.Text = Adodc1.Recordset.Fields.Item(3)
Text6.Text = Adodc1.Recordset.Fields.Item(4)
Text7.Text = Adodc1.Recordset.Fields.Item(5)
End If
Adodc1.Recordset.MoveNext
Wend
End Sub


espero ayude en algo