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!