Visual Basic - Problema con sentencias SQL y VB6

Primero de todo muy buenas, es la primera vez que escribo aunque hace tiempo que os sigo y espero que me podais ayudar.

Pues bien yo tengo el siguiente codigo en el formulario:

[QUOTE]Dim BDD As Database 'Objeto para manejar la base de datos

Dim TBL As Recordset 'Objeto para manejar la Tabla
Dim SQL As String

Private Sub Command1_Click()

Set BDD = OpenDatabase(App.Path & "pelu.mdb") 'Abre la base de datos

buscar = Command1.Caption

SQL = "select Descripcion from peluqueria where descripcion like = '" & buscar & "'"

Set TBL = BDD.OpenRecordset(SQL)
TBL.MoveFirst
Form1.List1.AddItem TBL("Descripcion")

End Sub

[/QUOTE]

He mirado por todos sitios y en teoria esta es la manera de hacerlo, pero no me funciona, da error en la sentencia SQL y el error es el siguiente:

[I]Error '3075' en tiempo de ejecucion: Error de sintaxis (falta operador) en la expresion de consulta 'descripcion like = 'Lavar,teñir,peinar" [/I]

A ver si alguien me puede ayudar, muchas gracias y saludos!!!!

En principio creo que te sobra el =, seria Like lo que sea.
Si son varias cosas a buscar tendrias que usar OR, Descripcion Like wrwrw Or descripcion Like eertet Etc.

Lo he probado y ahora me dice que no coinciden los tipos.....

muchas gracias y saludos!!

Bueno, además de lo que te dijeron antes de suprimir el signo igual faltarían los caracteres de máscara, en este caso sería el esterisco (*)

"select Descripcion from peluqueria where descripcion like = '*" & buscar & "*'"
esto seleccionaría todos los registros en cuyo campo "descripcion" encontrara el texto "Lavar,teñir,peinar" (que al parecer es el Caption del Command1), pero no cada uno de ellos.

Hay otras formas de hacerlo:

Con una clausula condicional WHERE:
sql = "Select Descripcion From peluqueria Where descripcion = 'Lavar' OR descripcion = 'teñir' OR descripcion = 'peinar'"

O mas sencillo, con el operador IN:
sql = "Select Descripcion From peluqueria Where descripcion IN ('Lavar', 'teñir', 'peinar')"

Aunque estas dos consultas arrojarían solamente el campo descripcion (lo que no tiene demasiada lógica), si quieres recuperar todos los campos de la consulta, sustituye:

"Select Descripcion From... " por "Select * From..."

Muchas gracias primero de todo, pero he añadido los asteriscos y el error es el mismo

saludos!!

Me parece que no has leido bien la respuesta:

"esto seleccionaría todos los registros en cuyo campo "descripcion" encontrara el texto "Lavar,teñir,peinar" (que al parecer es el Caption del Command1), pero no cada uno de ellos."

No te compliques mas la vida y pon la última opción:

sql = "Select Descripcion From peluqueria Where descripcion IN ('Lavar', 'teñir', 'peinar')"

Ya pero es que el contenido del registro de la base de datos es "Lavar,teñir,peinar", por lo tanto necesito buscar exactamente ese texto ya que es un pack que ofrece la peluqueria,

muchas gracias y saludos!!

Eso ya es otra cosa, escribe la consulta así:
sql = "SELECT * FROM Peluqueria WHERE descripcion ='" & buscar & "'"

Ahora, eso sí buscar tiene que ser exactamente lo mismo que el registro de la tabla (no valdría "Lavar, <espacio> teñir...)

Muchas gracias!!!!!!! llevo 3 dias con esto ya me va perfecto muchas gracias!!!