Busqueda dinamica en un textbox

[lop7]

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