La base de mi código es esta:Código: Text
Private Sub Command2_Click() Set con = CreateObject("ADODB.Connection") con.Open ("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & "C:\mibase.mdb") busca = Text5.Text sql = "SELECT * FROM mitabla WHERE dato1 LIKE '" & busca & "'" Set RS = con.Execute(sql) Do While Not RS.EOF Text3.Text = Text3.Text & vbCrLf & RS("dato1") Text4.Text = Text4.Text & vbCrLf & RS("dato2") RS.MoveNext Loop End Sub
Yo le pusite para que busque en dato1 y dato 2