Private Sub Report_Initialize()
CrystalReport1.SQLQueryString = CrystalReport1.SQLQueryString & " WHERE (FECHA BETWEEN #" & DATE1 & "# AND #" & DATE2 & "#)"
'CrystalReport1.SQLQueryString = CrystalReport1.SQLQueryString & " WHERE FECHA BETWEEN '" & DATE1 & "' AND '" & DATE2 & "'"
End Sub