Multiple value parameter problem

[audface]

When the code below is run, the error message of 'ActiveX cannot create object' appears and the 3rd line is highlighted and I wonder why.

Dim parafield As New ParameterField
Dim paraval As New ParameterFieldDiscreteValue
paraval.Value = ID1
parafield.CurrentValues.Add (paraval)

CRViewer1.ReportSource = ReportImage9
ReportImage9.ParameterFields(1).AddCurrentValue (parafield)
ReportImage9.PrinterSetup Me.hWnd
frmRegistrationBlank.Show
CRViewer1.ViewReport

I'll be greately appreciate it if someone could provide some guideline to rectify it. It seems like I have problem sending multiple values to a single parameter in crystal report(RDC)