Problemon con SQL y VB6

[Nuskes]

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:

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

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:

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

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

[Insomnia]

Hola

Para buscar una cadena puedes utilizar el = o el like pero no ambos a la vez, es decir:

Código:

.... descripcion = '" & buscar & "'"
.... descripcion like '" & buscar & "'"

--Saludos--

[Sashenka19]

Prueba asi:

Código PHP:

  where descripcion like '%" & buscar & "%'"  
   

Saludos.

[Nuskes]

Muchas gracias ya lo tengo solucionado!!

saludos!