Busqueda dinamica en un textbox

[relasoft]

MUCHAS GRACIAS POR TU AYUDA !!!!!!!!!!!

Pero he encontrado lo que queria en una sola linea y ademas que funciona con DAO:

Private Sub Text1_Change()

Data1.RecordSource = "select * from Productos where NombreProducto like '" & Text1.Text & "*';"
Data1.Refresh

End Sub


Esto lo uni con un datagrid, y me va limpiando el datagrid a medida que voy hallando el producto deseado, mientras escribo.

Muchas Gracias igual por tu ayuda.