Visual Basic - Error en parametros con Crystal y VB6

Tengo este pequeño fragmento de código para abrir un reporte aplicando parámetros:
Dim arFecha As Integer
arFecha = 2000
Set crystal = New CRAXDRT.application
Set report = crystal.OpenReport("D:\George\Ingenieria\SED\Reportes\rptEstudiantesCurso.rpt")
With rpt1
.ParameterFields.Item(1).ClearCurrentValueAndRange
.EnableParameterPrompting = False
.ParameterFields.Item(1).AddCurrentValue (arFecha)
End With

rpt1.ReportSource = report
rpt1.ViewReport

Pero me da un error aqui al momento de correr la app (Runtime)
.ParameterFields.Item(1).ClearCurrentValueAndRange
.EnableParameterPrompting = False
.ParameterFields.Item(1).AddCurrentValue (arFecha)

Dice "Object doesn't support this property o method"

Sabe alguien que debo de hacer?
Agradecería mucho la ayuda!