No soy muy bueno usando
DAO, pero con
ADO te quedaria algo asi:
Código:
Dim Data As New Connection
Dim mrs As Recordset
Data.ConnectionString = "Provider = Microsoft.Jet.OLEDB.4.0; Data source = " & App.Path & "\Data.mdb;Persist Security Info=False;JET OLEDB:DATABASE PASSWORD=427J592C558M"
Data.Open
Set mrs = Data.Execute("SELECT * FROM tabla WHERE campo LIKE '%busqueda%'") La linea en negrita es la clave de todo; simplemente haces un SQL que filtre los registros de la tabla que necesitas, con x condicion y ya. Me imagino que en
DAO podes usar sentencias SQL ¿o no?
