Ayuda con parámetros en Crystal 8.5

GUESS
17 de Mayo del 2004
Tengo el sgte código para abrir un reporte desde VB6, pero me da un error.

Dim arFecha As Integer
arFecha = 2000 'txtFecha.Text
Set crystal = New CRAXDRT.Application
Set report = crystal.OpenReport("D:GeorgeIngenieriaSEDReportesrptEstudiantesCurso.rpt")
With rpt1
rpt1.ParameterFields.Item (1).ClearCurrentValueAndRange
rpt1.EnableParameterPrompting = False
rpt1.ParameterFields.Item(1).AddCurrentValue (arFecha)
End With

rpt1.ReportSource = report
rpt1.ViewReport

El error es "Object doesn´t support this property or method", y lo lanza en las líneas que están dentro del "With"!
Si alguien pudiera ayudarme, LO AGRADECERIA MUCHO!