Visual Basic - rango de fecha

señores:
tengo este codigo que no me reulta para lo que yo quiero
agradecere que me puedan ayudar

Dim f1 As String
Dim f2 As String

f1 = MaskINI.Text
f2 = MaskFIN.Text

Set Rec = Db.Execute(" SELECT * FROM consulta1 WHERE Otc_Fecha_ini BETWEEN # " & Trim(f1) & "#" & " AND #" & Trim(f2) & "#")

que tengan un buen día
Atte.
stello

Creo q solo es sintaxis, prueba con esto a ver si obtienes resultados:

Set Rec = Db.Execute(" SELECT * FROM consulta1 WHERE Otc_Fecha_ini BETWEEN & "# " & Trim(f1) & "#" & " AND " & "#" & Trim(f2) & "#")

Saludos!!!

hola no me resulta estoy ocupando como base de datos access.

Set Rec = Db.Execute(" SELECT * FROM consulta1 WHERE Otc_Fecha_ini BETWEEN # " & Trim(f1) & "#" & " AND #" & Trim(f2) & "#")


Do While Not Rec.EOF ' aquie no puede entra eso quiere decir que no encuentra la finformacion que le solicito atravez de los parametros

On Error Resume Next
MSGrid1.TextMatrix(MSGrid1.Rows - 1, 1) = Rec("otc_asig")
MSGrid1.TextMatrix(MSGrid1.Rows - 1, 2) = Rec("otc_n")
MSGrid1.Rows = MSGrid1.Rows + 1


Rec.MoveNext

Loop

Prueba con algo asi
yo creo que puede ser el formato de la fecha

Set Rec = Db.Execute(" SELECT * FROM consulta1 WHERE Otc_Fecha_ini BETWEEN # " & Format(f1,"yyyy/mm/dd") & "#" & " AND #" & Format(f2,"yyyy/mm/dd") & "#")

asegurate que fi, y f2 sean tipos de fecha si son cadenas conviertelas fecha hechale un ojo a la funcion dateseria()

suerte.