Access - URGENTE, problemas con consultas de referencias.

Tengo un formulario que recogo un mes mediante un cuadro desplegable y tengo un boton que hace:

Dim strFechaI, strFechaF As String
Dim mes, año
mes = Format(Me.SMes, "mm")
año = Format(Date, "yy")
strFechaI = "01/" & mes & "/" & año
strFechaF = "31/" & mes & "/" & año
' Comprobar la fecha.
If IsDate(strFechaI) Then
' Si la cadena es una fecha, formatearla y presentarla en un cuadro de texto llamado InicioMes.
Me.InicioMes = Format(DateValue(strFechaI), "Short Date")
End If
If IsDate(strFechaF) Then
' Si la cadena es una fecha, formatearla y presentarla en un cuadro de texto llamado FinMes.
Me.FinMes = Format(DateValue(strFechaF), "Short Date")
End If

Dim stDocName As String
'AuxInicioMes = Me.InicioMes
'AuxFinMes = Me.FinMes

stDocName = "ConsultaHistorialTabladereferenciascruzadas"
DoCmd.OpenReport stDocName, acPreview

El informe llama a la consulta de seleccion:
SELECT [Historial_Tabla de referencias cruzadas].Fecha_Consulta, [Historial_Tabla de referencias cruzadas].[30], [Historial_Tabla de referencias cruzadas].[60], [Historial_Tabla de referencias cruzadas].[90], [Historial_Tabla de referencias cruzadas].[120], [Historial_Tabla de referencias cruzadas].TotalCapsulas
FROM [Historial_Tabla de referencias cruzadas]
WHERE ((([Historial_Tabla de referencias cruzadas].Fecha_Consulta) Between [Forms]![ContarCapsulas]![InicioMes] And [Forms]![Con

Te he enviado un e-mail