Visual Basic - Consulta Data Grid

Tengo un Text llamado text1, el que buscar registros en un Data Grid, la cual esta conectada a una base de datos access a través de ADO control . Me arroja "error de sintaxis" al buscar los registros coincidentes. Soy muy nuevo en esto de VB si alguien puede darme una mano le agradeceré.

Acá va el código que utilizo:

With Adodc1
.RecordSource = "select * " & _"from Tabla1 " & _
"where Nombre like '" & text1.txt & "%' " & _
"order by Nombre"
End With
Set DataGrid1.DataSource = Adodc1

gracias.

no estas que pones espacios o me parece, prueba

With Adodc1
.RecordSource = "select * from Tabla1 " & _
" where Nombre like '" & text1.txt & "%' " & _
" order by Nombre"
End With

¿Entonces como debería ir si tampoco funciona sin espacios?

Muchas gracias.

ya probaste con esto:

With Adodc1
.RecordSource = "select * from Tabla1 " & _
" where Nombre like '" & text1.txt & "%' " & _
" order by Nombre"
End With

Copia y pega, aunque parece tu mismo codigo, si te das cuenta hay un espacio antes del where y antes del order

Gracias por responder Christian. Lo he probado pero no filtra nada. El codigo esta de la siguiente forma:

With Adodc1
.RecordSource = "select * from enviada " & _
" where destinatario like '" & Text1.Text & "%' " & _
" order by destinatario"
End With
Set DataGrid1.DataSource = Adodc1

Se te ocurre algo más?. Bueno de todas formas muchas gracias

al final debes poner
adodc1.refresh
datagrid1.refresh

En realidad el código del text esta de la siguiente forma:

Private Sub Text1_Change()
With Adodc1
.RecordSource = "select * from enviada " & _
" where destinatario like '" & Text1.Text & "%' " & _
" order by destinatario"
End With
Adodc1.Refresh
DataGrid1.Refresh
End Sub

y me envía el siguiente mensaje error de sintaxis en la clausula from y el indicador del error apunta a Adodc1.Refresh

Muchas gracias por todas tus molestias.

que raro amigo prueba declarando una variable.

dim sentencia as string
sentencia = "select * from enviada "
sentencia = sentencia & " where destinatario like " & Text1.Text & "'%"
sentencia = sentencia & " order by destinatario"

.RecordSource = sentencia

Verifica si text1.text tiene dato.
Suerte.

Gracias Christian. Realmente eres muy gentil. De todas formas al intentar filtrar de la forma que tu me indicas me referencia no válida o sin calificar..

.RecordSource = sentencia

Gracias por todas tus molestias. Estoy leyendo un manual con instrucciones para obtener datos pero nada. De todas formas muchas gracias.

Solo tienes que copiar y pegar en el change del text y cambiar lo de tabla y campo que desees.

Private Sub Text1_Change()
Me.Adodc1.RecordSource = "select * from tabla where campo like '" & Me.Text1 & "%' order by campo"

Me.Adodc1.Refresh

End Sub

Seguramente te faltaba el refresh al adodc o te liaste con la consulta. Esto lo probe tal cual y funciona a las mil maravillas. Me cambia el dbgrid segun valla escribiendo en el textbox.

ArkDark
Cita: Antes muerta que sencilla (Paranoia :D)
(*^_^*)

Gracias ArkDark:

La verdad es que yo estaba utilizando el Refresh en el adodc1. Cuando quiero filtrar los campos a través del text no filtra nada. Ahora con el código que tu me das me aparece el mensaje ERROR EN CLÁUSULA FROM. Yo creo que debo tener algo desactivado. No se que es porque se me ocurre revisar las referencias y propiedades y todo ok.

Además el adodc1 y también el data grid están enlazados a la base de datos. De hecho me muestra todos los registros de la tabla pero no logro filtrarlos....

Muchas gracias de todos modos por responder...

La cosa es asi guarda la query en una variable
StrQuery="select * " & _"from Tabla1 " & _
"where Nombre like '" & text1.txt & "%' " & _
"order by Nombre"

With Adodc1
set .RecordSource = StrQuery
End With
Set DataGrid1.DataSource = Adodc1
ahora refresca los dos por las dudas mas que nada
adodc1.refresh
sgrid1.refresh
suerte