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?

A que te refieres ¿Me afecta la bases de datos?

este codigo resulta,

Set Rec = Db.Execute(" SELECT * FROM consulta1 WHERE super_nombre='" & Trim(Combo2.Text) & "'And Otc_Fecha_ter BETWEEN #" & Trim(aa) & "#" & " AND #" & Trim(BB) & "# order by Otc_Fecha_ter")