Visual Basic - Ayuda urgente!!!

Hola. Tengo un inconveniente con el siguiente codigo. Pretendo generar un informe a partir de una variante de sentencias SQL. El problema es que cuando filtro el informe con "LIKE" no funciona:
Abajo esta bien especificado cual es el caso en el que no funciona. Me genera el informe pero no me muestra ningun registro.
Si alguien sabe como solucionar el problema estare agradecido

Private Sub Command1_Click()
Dim cliente As ADODB.Command
Dim Entorno As dtaEntorno
Screen.MousePointer = vbHourglass
Set Entorno = New dtaEntorno
Entorno.Informes.ConnectionString =
"Provider=Microsoft.Jet.OLEDB.3.51; Data Source= " + App.Path +
"\constructora.mdb"
Set cliente = Entorno.Commands("acmClientes")
cliente.CommandType = adCmdText
cliente.CommandText = "SHAPE {SELECT * FROM `clientes` WHERE
clientes.direccion LIKE '*+parametro+*' ORDER BY clientes.ap_nomb} AS
acmClientes APPEND ({SELECT * FROM `emails`} AS acmEmails RELATE
'ap_nomb' TO 'cliente') AS acmEmails"
Load rptCliente
Screen.MousePointer = vbDefault
rptCliente.Show
End Sub

NO ANDA:
"SHAPE {SELECT * FROM `clientes` WHERE clientes.direccion LIKE
'*"+parametro+"*' ORDER BY clientes.ap_nomb} AS acmClientes APPEND ({SELECT
* FROM `emails`} AS acmEmails RELATE 'ap_nomb' TO 'cliente') AS
acmEmails"

ANDA:
"SHAPE {SELECT * FROM `clientes` WHERE clientes.direccion =' "+parametro+"' ORDER BY clientes.ap_nomb} AS acmClientes APPEND ({SELECT * FROM
`emails`} AS acmEmails RELATE 'ap_nomb' TO 'cliente') AS acmEmails"

cambia los * por %