Visual Basic - BETWEEN CON FECHAS

hola foreros , estoy haciendo una macro en excel donde me debe de mostrar unos registros deacuerdo a un rango de fechas especificadas.

Este es mi codigo

Dim fecha As Date, fecha2 As Date
Dim base As Database
Dim exam As Recordset
Dim dia As String, nr As String, mes As String, f1 As String, f2 As String, año As String
Sub Macro1()

' Acceso directo: CTRL+m
'

Set base = OpenDatabase("C:\examen\titulacion.mdb")
fecha = Date
dia = Day(fecha)
mes = Month(fecha)
año = Year(fecha)
dia = dia + 30
fecha2 = DateSerial(año, mes, dia)
f1 = Format(fecha, "mm/dd/yyyy")
f2 = Format(fecha2, "mm/dd/yyyy")

Set exam = base.OpenRecordset("SELECT * FROM examen WHERE fecha_sistema BETWEEN '" & f1 & "' And '" & f2 & "' ")
r = 1
For i = 1 To exam.RecordCount Step 1
Cells(r, 1) = exam!no_control
Cells(r, 2) = exam!nombre
Cells(r, 3) = exam!paterno
Cells(r, 4) = exam!materno
Cells(r, 5) = exam!fecha_candidato
Cells(r, 6) = exam!fecha_sistema
r = r + 1

Next i


End Sub

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

TAMBIEN UTILIZO ESTA INTRUCCION DE CONSULTA PERO NO ME DA RESULTADOS.
Set exam = base.OpenRecordset("SELECT * FROM examen WHERE fecha_sistema BETWEEN #" & fecha & "# And #" & fecha2 & "#")

OJALA Y ME PUEDAN AYUDRA .

GRACIAS.....................

Lo que puedes hacer es hacerlo con <= ó >=

("SELECT * FROM examen WHERE fecha_sistema <=#" & fecha & "# And fecha_sistema >=#" & fecha2 & "#")

Dependiendo cual sea mayor y cual sea menor :o)

Se me olvido poner, justo me acorde cuando ya había dado clic en envíar xD

("SELECT * FROM examen WHERE fecha_sistema <='#" & fecha & "'# And fecha_sistema >='#" & fecha2 & "'#")

En las BD deben de tener comilla simple ' para los campos fechas, hasta derrepente sea por eso que no te funciona el comando between

ya lo probe y no me genera nada.

Set exam = base.OpenRecordset("SELECT * FROM examen WHERE fecha_sistema >='#" & fecha & "#' And fecha_sistema <='#" & fecha2 & "#'")

prueba con las funciones de para fecha day moth year