Visual Basic - consulta por rango de fechas

bueno tengo una CONSULTA POR FECHAS LAS CUALES NO ME TOMA LASQUE LES INDICO E INTENTADO VARIAS FORMAS ESTE ES UNO DE LOS CXODIGO PORFAVOR NECESITO CUALQUIER CODIGO PARA PODER PROBAR Y SOLUCIONAR ESTE PRG AQUI ESTA EL CODIGO
Fin = Me.Fecha_I
Ter = Me.Fecha_T

Cons = "select * from ventas " _
& "WHERE fecha_inicio <= " & "#" & Format$(Fin, "mm/dd/yyyy") & "#" _
& " And fecha_Termino >= " & "#" & Format$(Ter, "mm/dd/yyyy") & "#" & " "
Set Rec = Bases.OpenRecordset(Cons)

Fijate con el formato yyyy-mm-dd y los signos o utiliza Between:

Cons = "select * from ventas " _
& "WHERE fecha_inicio >= " & "#" & Format$(Fin, "yyyy-mm-dd") & "#" _
& " And fecha_Termino <= " & "#" & Format$(Ter, "yyyy-mm-dd") & "#" & " "
Set Rec = Bases.OpenRecordset(Cons)

o con:

Cons = "select * from ventas " _
& "WHERE fecha_inicio Between " & "#" & Format$(Fin, "yyyy-mm-dd") & "#" _
& " And " & "#" & Format$(Ter, "yyyy-mm-dd") & "#" & " "
Set Rec = Bases.OpenRecordset(Cons)

te agradesco la respuesta pero sabes, no me resulta me toma de igual forma distintas fechas y miro la configuracion regional y esta bien , si es que tuvieras otra alternativa te lo agradeceria mucho porque me tiene agotado este prg y tengo que entregarlo lo antes posible si quieres te doy mi correo de hotmail es [email protected] para que te conosca mejor ok

mira lo que puedes hacer con la consulta de fechas es lo siguiente.

Fin = Me.Fecha_I
Ter = Me.Fecha_T

Cons = "select * from ventas " _
& "WHERE fecha_inicio >=' " & Format(Fin, "mm/dd/yyyy") & " ' " _
& " And fecha_Termino <= ' " & Format(Ter, "mm/dd/yyyy") & " ' "

o tambien lo puedes probar asi

Cons = "set dateformat ymd select * from ventas " _
& "WHERE fecha_inicio >=' " & Format(Fin, "yyyy/mm/dd") & " ' " _
& " And fecha_Termino <= ' " & Format(Ter, "yyyy/mm/dd") & " ' "

Espero que te sirva.