Necesito ayuda con un reporte

kevinduque
17 de Agosto del 2004
Hola amigos

Tengo un problema al tratar de cargar un reporte de Crystal desde VB 6

En el reporte tengo un listado de cotizacionesy al hacer una formula para que me filtre por fecha de cotizacion no me da ningun problema ejem

En Crystal hago lo siguiente
en Record Selection Formula Editor tengo la siguiente formula

{Cotizacion.FechaCotizacion}>= Date('01/08/2004') and {Cotizacion.FechaCotizacion}<= Date('06/08/2004')

y al correr el reporte en cystal no me da ningun problema, puedo cambiar las fechas y me filtra la informacion que yo quiero, pero al tratar de hacerlo desde VB me da el siguiente problema

20515 Error in formula
'{Cotizacion.FechaCotizacion}>= Date('16/08/2004') and {Cotizacion.FechaCotizacion}<= Date('16/08/2004')'
Not enough arguments have been given to this function

El codigo en VB que utilizo es el siguiente

Private Sub cmdAceptar_Click(Value As Integer)
On Error GoTo errores
If cmdAceptar.Value Then
cmdAceptar.Value = False
Dim dir As String
Dim FechaIni As String
Dim FechaFin As String
dir = "\ServerCotizacionesReportes"
Report.Connect = ConnectionString
Report.DiscardSavedData = True
Report.ReportFileName = dir & "Cotizaciones.rpt"
Report.WindowState = crptMaximized
If optPorFecha.Value = True Then
FechaIni = FechaInicio.Text
FechaFin = FechaFinal.Text
Report.Destination = crptToWindow
Report.Formulas(0) = "FechaInicio = '" & FechaIni & "'"
Report.Formulas(1) = "FechaFinal = '" & FechaFin & "'"
StringReport = "{Cotizacion.FechaCotizacion}>= Date('" & FechaIni & "') and {Cotizacion.FechaCotizacion}<= Date('" & FechaFin & "')"
Report.ReplaceSelectionFormula StringReport
Report.Action = 1
End If
End If
errores:
If Err.Number <> 0 Then
DisplayErrores
End If
End Sub

En la base de datos de SQL el campo esta con el tipo de dato DateTime

Gracias de antemano por su ayuda

Kevin