Visual Basic - Like

Señores:

Necesito de su ayuda, a continuación detallo mi problema:
Necesito listar todas las calles con solo escribir algunos caracteres del nombre de la calle y para esto estoy ocupando el like, que continuación les envio mi código para que vean en que estoy fallando, de antemano les agradeceré por su ayuda.

Dim dire dire As String

dire=texcalle
' Set REC = Db.Execute("select * FROM consulta1 Where consulta1.Otc_Direccion like '´%[dire]%'")

Atte:
Stello.

Si lo que buscas debe estar entre paréntesis cuadrados [ ] está bien, pero si lo pones porque muchos novatos lo hacen porque creen que así no se va a caer su aplicación, déjame decirte que no es así, solo quítalos.