csic17
05 de Marzo del 2004

Hola quisiera que alguien me pueda orientar para poder hacer una busqueda dinamica con ado y en una base de datos de access 2000.
Gracias

David Contreras
03 de Abril del 2011

esto lo vi en otra pagina
hola....

intentalo asi
--------------------------------
dim ocnn as new adodb.Connection
dim rs as new ADODB.recordset
dim ocmd as new ADODB.Command
------------------------------
sub form_load()

ocnn.conection "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& app.path &"nombreBD.mdb;Persist Security Info=False"

end sub

'despues coloca en el evento change del textbox
Private Sub nombre_Change()
dim str as string
ocmd.CommandText ="select nombreprod as nombre from productos where nombreprod like '"& nombre.text
Set rs = cmd.Execute
while not rs.eof
listbox.AddItem (rs.fields!nombre)
rs.movenext
wend
End Sub

espero te sirva
nos vemos