Visual Basic - Like

Hola nesecito que me corrijan con este codigo, deantemano les estare agradecido.

Set Rec = Db.Execute("select Otc_Asig,Otc_N,Otc_Spe,Otc_Cliente,Otc_Direccion,Otc_Altura,nom_comuna,super_nombre,contra_nombre,Otc_fecha_ini,Otc_fecha_ini FROM consulta1 Where Otc_Direccion like "*dire1"")

atte:
stello

Si quieres que otc_direccion finalice con "dire1" puedes hacer

WHERE Otc_Direccion LIKE '%dire1'

Si quieres que comience:

WHERE Otc_Direccion LIKE 'dire1%'

Y si quieres que esté incluída:

WHERE Otc_Direccion LIKE '%dire1%'

hola gracias
por´tú ayuda, pero tengo el siguiente problema:

Set Rec = Db.Execute("select Otc_Asig,Otc_N,Otc_Spe,Otc_Cliente,Otc_Direccion,Otc_Altura,nom_comuna,contra_nombre,Otc_fecha_ini,Otc_fecha_ini FROM consulta1 Where Otc_Direccion like '%DIR1%'")


If Not Rec.BOF And Not Rec.EOF Then ' no entra en siclo por que ?????
dire = Rec("Otc_Direccion")
Frm_direcciones.Show

Else
MsgBox "Número de Otc No Existe.", vbInformation, " O T C"

té agradecere por tu ayuda
End If