Visual Basic - Fallas en rango de fechas

Tengo un programa donde pido un rango de fechas con la indtruccion Set mitabla = mibase.OpenRecordset("SELECT * FROM dia WHERE dia BETWEEN #" & Fecha1.Text & "#" & "AND #" & Fecha2.Text & "#" & " ORDER BY dia"), pero ma afecta la base de datos, A que se debe?

Hola, primero debes estar seguro que en la base de datos el formato del campo fecha es de tipo fecha corta ( DD/MM/YYYY ) y luego en la sentencia lo que debes hacer es formatear los textbox que contienn la fecha de la siguiente manera :

"select * from dia where dia between #" & format(fecha1.text,"YYYY/MM/DD") & "# etc etc....."