Pasar parámetros de visual a Access

Tengo el siguiente drama, estoy haciendo un programa en vb6 y trabajo con ado, pero no utilizando el dataenvironment. Entonces en un formulario tengo dos xdate (un calendar pequeño) en las cuales ingreso fecha, entonces lo que quiero es que esas fechas me filtren información para ser visualizadas en un reporte hecho en crystal report 4.6, ya que si no filtro la info me muestra todo.
Tengo declarado en un modulo las variable globales
Global acces As ADODB.Connection
Global query As ADODB.Recordset
y en el form donde esta el control del crystal tengo lo siguiente:
Private Sub mostrarcheques_Click()
Dim query As String
query = "SELECT * FROM cheques_girados " _
& "WHERE fecha Between #" _
& Format(mes1.text, "mm/dd/yyyy") _
& "# And #" _
& Format(mes2.text, "mm/dd/yyyy") & "#"
MsgBox query
Stop
acces.Execute query
MousePointer = 11
vercheques.reporte.ReportFileName = App.Path + "\cheques.rpt"
vercheques.reporte.WindowTitle = "Listado de Cheques Girados por Procomar"
vercheques.reporte.Destination = 0
vercheques.reporte.SelectionFormula = "{cheques.fecha}=" + query + " "
vercheques.reporte.Action = 0
vercheques.reporte.WindowState = crptMaximized
MousePointer = 0
End Sub
Y me arroja el siguiente error:
Error '20515'
Error in fórmula
Podrías decirme cual es el error.
Gracias