Haber si logramos dar con el resultado deseado:
Código:
rs.Open "SELECT * FROM TablaFacturas WHERE TuCampoFecha " & _
"BETWEEN #" & Format(TxtFechaIni, "mm/dd/yyyy") & "# " & _
"AND #" & Format(TxtFechaFin, "mm/dd/yyyy") & "# " & _
"ORDER BY TuCampoFecha)", cn, adOpenStatic, adLockOptimistic
Espero te Sirva... y para llenar la grilla haces esto
Código:
Set TuGrilla.DataSource = rs