passing paramter to CR subreport through VB.net

[Hueby]

Hi all, I am having trouble passing parameter values to my Crystal Report 10 report through VB.NET 03. Below is the code I am using. It works fine for everything else (like the main report), EXCEPT when I have a subreport in my report that requires a parameter.

When going through VB I get a "The parameter is incorrect" error. After the error, in the crystal report viewer if you hit refresh then the Report will ask for the parameters and it will work then. Obviously, it has to do with passing the parameters to the subreport correctly through VB then?

Does anyone have some suggestions?

Dim oRpt As New ReportDocument
        oRpt.Load("C:\Program Files\System2\rpts\ABSTL\rptTMreceipt.rpt")
 
        Dim param1Fields As New CrystalDecisions.Shared.ParameterFields
 
        Dim param2Field As New CrystalDecisions.Shared.ParameterField
        Dim param2Range As New CrystalDecisions.Shared.ParameterDiscreteValue
        Dim param3Field As New CrystalDecisions.Shared.ParameterField
        Dim param3Range As New CrystalDecisions.Shared.ParameterDiscreteValue
        Dim param4Field As New CrystalDecisions.Shared.ParameterField
        Dim param4Range As New CrystalDecisions.Shared.ParameterDiscreteValue
        Dim param5Field As New CrystalDecisions.Shared.ParameterField
        Dim param5Range As New CrystalDecisions.Shared.ParameterDiscreteValue
 
        param2Field.ParameterFieldName = "@startdate"
        param3Field.ParameterFieldName = "@tax" 'supreport parameter
        param4Field.ParameterFieldName = "@markup" 'supreport parameter
        param5Field.ParameterFieldName = "@EqMarkup" 'supreport parameter
 
        param2Range.Value = startdate
        param3Range.Value = F9.txtTMsalestax.Text 
        param4Range.Value = F9.txtTMmatmarkup.Text 
        param5Range.Value = F9.txtTMeqmarkup.Text
 
        param2Field.CurrentValues.Add(param2Range)
        param3Field.CurrentValues.Add(param3Range)
        param4Field.CurrentValues.Add(param4Range)
        param5Field.CurrentValues.Add(param5Range)
 
        param1Fields.Add(param2Field)
        param1Fields.Add(param3Field)
        param1Fields.Add(param4Field)
        param1Fields.Add(param5Field)