Visual Basic - Like

Hola necesito que me ayuden
necesito listar tadas las calles con solo ingresar unas cuantas caracteres del nombre de la calle , acontinuacion envio mi codigo que solo me permite lista cuando ingreso el nombre completo.

Set Rec = Db.Execute("select * from Consulta1 Where Otc_Direccion = '" & Trim(Form1.Text_calle_otc.Text) & "'")

el codigo que detallo a continuacion se supone que deveria listarme las calles con solo ingresar unas iniciales de las calles pero no me resulta
agradecere por sus ayuda.
atte.
sytllo

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

mira no se si estes usuado mysql pero si es asi para utilzar el like es asi:
select * from nom_tabla where campo1 like 'B%'

el % te ayuda a buscar cualquier palabra despues de la B en este ejemplo

estoy ocupando access, todavia no me resulta la consulta

He utilizado el Like en algunas ocasiones y me ha resultado muy bien, te pongo unas lineas de codigo q he usado:

Buscar = \"Select IdCia, Nombre From Compañias Where Nombre Like \"
Buscar = Buscar & \"\'\" & TxtCia & \"\'\"
SQL = Buscar

Data1.RecordSource = SQL
Data1.Refresh

Como veras el * q lleva en la parte final del texto a buscar lo da el usuario, en este caso, pero podrias poner tambien en el codigo de manera q quede asi:

Buscar = \"Select IdCia, Nombre From Compañias Where Nombre Like \"
Buscar = Buscar & \"\'\" & TxtCia & \"*\" & \"\'\"

En tu sintaxis vi dos asteriscos, uno al final y otro al inicio, ignoro q error te haya marcado, pero trata solo con un *, el del final del texto...

Espero te sea de utilidad...

Saludos!!!!

Si ves lineas verticales, ignorales, por favor...

este codigo me sirve para Access