Problema de Busqueda

[asegoviaz]

Inserte este codigo para una busqueda alfabetica

dim letra, cadletra
letra=request.QueryString("let")

cadletra="SELECT Empresas.NOMBREEMPRESA AS NOMBRE, Empresas.telefonos as tel, Empresas.fax as fax, Empresas.email as email,Empresas.website as web, Empresas.imglogo as imagen, Empresas.direccion as dir, Distritos.nomdistrito as dist FROM Empresas INNER JOIN Distritos ON Empresas.iddistrito=Distritos.iddistrito WHERE ''& Empresas.nombreempresa like '%[ ]"&letra&"[ ]%' or Empresas.nombreempresa like '%[ ]"&letra&"' or Empresas.nombreempresa like '"&letra&"[ ]' order by empresas.nombreempresa"


set rsalfa =createobject("ADODB.Recordset")
set rsalfa = conn.execute(cadletra)

y me sale este error, Ayuda por favor:


Microsoft OLE DB Provider for ODBC Drivers error '80040e14'

[Microsoft][ODBC Microsoft Access Driver] Syntax error (missing operator) in query expression '''& Empresas.nombreempresa like '%[ ]C[ ]%' or Empresas.nombreempresa like '%[ ]C' or Empresas.nombreempresa like 'C[ ]' '.

[Avelar]

Enseguida del WHERE tienes dos ' (comillas simples) en vez de una " (comilla doble)