busqueda inteligente

bigabav
06 de Enero del 2006
quisiera hacer lo siguiente :
tengo un cuandro de texto
y un data grid
quiero que conforme le vaya introduciendo caracteres al cuadro de texto, aparezcan los datos de la tabla en el data grid que coincidan con lo que esta en el cuadro de texto.
trate de hacerlo de la siguiente manera:

Private Sub Text1_Change()
tabla.Close
word = Text1.Text
Text2 = word
tabla.Open "Select * from ART_PAP Where Clave like ' " & word & " ' ", conex, adOpenDynamic, adLockOptimistic, adCmdText
Set tblprod.DataSource = tabla
End Sub

pero no me sale

mvallejos
06 de Enero del 2006
Al Like le falta el comodín % antes de cerrar la comilla simple

like ' " & word & " %' "

Saludos