Visual Basic - Problema VB6 y SQL

Buenas!!!!

mirar el problema que tengo. Tengo esta intruccion en el load del form1:

Set rs = New ADODB.Recordset
With rs
.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source =" & _
App.Path & "pelu.mdb"
.CursorType = adOpenStatic
.CursorLocation = adUseClient
.Open "Select * from peluqueria"
End With
Set DataGrid1.DataSource = rs

Esto me funciona perfectamente y muestra en el datagrid todo el contenido de la tabla peluqueria.

Ahora bien, la siguiente intruccion en el change de un text:

Set rs = New ADODB.Recordset
With rs
.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source =" & _
App.Path & "pelu.mdb"
.CursorType = adOpenStatic
.CursorLocation = adUseClient
.Open "Select * from peluqueria where idservicio ='" & Text1.Text & "'"
End With
Set DataGrid1.DataSource = rs

Lo unico que he cambiado es la sentencia SQL y me tira error, en concreto el siguiente:

"No coinciden el tipo de datos en la expresion de criterios"

Saludos y gracias!!!

Bueno, seguramente que el campo "idservicio" es de tipo numérico. En tal caso, le tienes que quitar las comillas simples a la variable en la consulta:

"Select * from peluqueria where idservicio =" & Text1.Text

De todas formas, no te aconsejo que lo hagas en el evento Change del Textbox (estaría bien si fuera para búsquedas por aproximación utilizando el operador LIKE) es mejor al perder el foco (LostFocus) o en KeyPress (al pulsar la tecla ENTER p.e.) o a través de un botón "Buscar"

Ok , muchisimas gracias ya me has solucionado dos problemas!! estas hecho un maquinilla!!

Saludos y gracias!!