Crystal Report - miguele

He puesto como tu me lo dijiste juan pablo pero sigue sin ir.
tambien lo he puesto asi:

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} >= #" & DateValue(DTPicker1.Value) & "# AND {existencias.Fecha} < #" & DateValue(DTPicker2.Value) & "#"
CrystalReport1.SelectionFormula = cadena
CrystalReport1.Action = 1

End Sub

Y sigue sin ir me dice error en la formula me queda poco tiempo para entregar el programa y esto realmente desesperado no se que puede pasar