hacer una búsuqeda en base de datos

[gary666]

ok mira si utilizas ado tienes qe crerar la conexion y luego el query

Dim Conection As ADODB.Connection
Dim strCon As String
strCon = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\Gary\ejemplos vb6\acceso\Ejemplo.mdb;Persist Security Info=False"
Set Conection = New Connection
Conection.ConnectionString = strCon
Conection.Open

Dim rs As Recordset
Set rs = Conection.Execute("Select * From Agenda Where campo= " & text1.text)
While Not rs.EOF
MsgBox rs!Nombre
rs.MoveNext
DoEvents
Wend
rs.Close
Conection.Close

y si utilizas dao
solo crea un recordset
Dim db as database
Dim rs As Recordset
set db = opendatabase("Base de datos")
Set rs = db.openrecordset("Select * From Agenda Where campo = & Text1.text")

While Not rs.EOF
MsgBox rs!Nombre
rs.MoveNext
Wend
rs.Close