Crystal Report - Aclaracion

Asi he puesto la funcion y la formula pero sin embargo me da error en la formula y no se que puede ser

Private Sub cmdImprimir_Click()
Dim cadena As String

If DateValue(DTPicker1.Value) > DateValue(DTPicker2.Value) Then
MsgBox "La Fecha de Inicio no puede ser Mayor a la Fecha Final"
Exit Sub
End If
CrystalReport1.Destination = 0
CrystalReport1.ReportFileName = App.Path & "existencias2.rpt"
cadena = "{existencias.Fecha} >= " & DTPicker1.Value & " and {existencias.Fecha} < " & DTPicker2.Value
CrystalReport1.SelectionFormula = cadena
CrystalReport1.Action = 1
End Sub

Proba poniendo unos numerales (#) a las fechas. Te quedaria asi:

If DateValue(DTPicker1.Value) > DateValue(DTPicker2.Value) Then
MsgBox "La Fecha de Inicio no puede ser Mayor a la Fecha Final"
Exit Sub
End If
CrystalReport1.Destination = 0
CrystalReport1.ReportFileName = App.Path & "existencias2.rpt"
cadena = "{existencias.Fecha} >= #" & DTPicker1.Value & "3# and {existencias.Fecha} < #" & DTPicker2.Value & "#"
CrystalReport1.SelectionFormula = cadena
CrystalReport1.Action = 1
End Sub

Creo que alguna vez esto me soluciono el mismo problema.

Espero haber colaborado en algo.

Saludos, Juan Pablo