Crystal Reports 9 + fechas

[vdiaz18]

SALUDOS,
Por favor si me pueden ayudar con lo siguiente, necesito mostrar un reporte que tome unicamente los datos de una fecha correspondiente.

aqui les dejo el codigo que tengo :

Private Sub DiarioCaja()
Dim Seleccion As String
Dim Fecha As Date
Set CrApp = New CRAXDDRT.Application
Set CrReporte = New CRAXDDRT.Report
Set CrReporte = CrApp.OpenReport("C:\LACBI\App\Capas\Usuario\Repor ts\DiarioCaja.rpt", 1)
CrReporte.ReportTitle = "Reporte Diario de Caja"
Fecha = Date
Seleccion = "{tCabecera.cab_fec} = '" & Fecha & "'"
CrReporte.RecordSelectionFormula = Seleccion
Me.crVistaReporte.ReportSource = CrReporte
Me.crVistaReporte.ViewReport
End Sub


EL PROBLEMA ES QUE CUANDO EJECUTO LA APLICACION Y DESEO MOSTRAR EL REPORTE ME DA EL ERROR :

A date-time is required here


por favor si me pueden ayudar corriegiendome en que estoy mal

pd: la base de datos es SQL Server


gracias de antemano

y feliz año a todos