Missing Parameter Values while passing parameters to CRystal from .net

[nelco]

I am getting ' Missing parameter value' error.
I will appreciate any guidance / help to fix this error.

My code:

Private Sub setParameters()
' Create report instance. This is the class added to your project

' when you added the report to the project

Dim report As New ReportDocument

report.Load(Server.MapPath("CrystalReport.rpt"))
report.FileName = Server.MapPath("CrystalReport.rpt")

Dim crParameterFieldDefinitions As ParameterFieldDefinitions
Dim crParameterFieldLocation As ParameterFieldDefinition
Dim crParameterValues As ParameterValues
Dim crParameterDiscreteValue As ParameterDiscreteValue

' Dim crParameterFieldDefinitions1 As ParameterFieldDefinitions
Dim crParameterFieldLocation1 As ParameterFieldDefinition
Dim crParameterValues1 As ParameterValues
Dim crParameterDiscreteValue1 As ParameterDiscreteValue

'Dim crParameterFieldDefinitions2 As ParameterFieldDefinitions
Dim crParameterFieldLocation2 As ParameterFieldDefinition
Dim crParameterValues2 As ParameterValues
Dim crParameterDiscreteValue2 As ParameterDiscreteValue

'Dim crParameterFieldDefinitions3 As ParameterFieldDefinitions
Dim crParameterFieldLocation3 As ParameterFieldDefinition
Dim crParameterValues3 As ParameterValues
Dim crParameterDiscreteValue3 As ParameterDiscreteValue

'Dim crParameterFieldDefinitions4 As ParameterFieldDefinitions
Dim crParameterFieldLocation4 As ParameterFieldDefinition
Dim crParameterValues4 As ParameterValues
Dim crParameterDiscreteValue4 As ParameterDiscreteValue

'CrystalReportViewer1.ReportSource = report


Dim crParameterFieldDefinitions1 As ParameterFields = CrystalReportViewer1.ParameterFieldInfo
'crParameterFieldDefinitions = CrystalReportViewer1.ParameterFieldInfo 'CrystalReportViewer1.ParameterFieldInfo ' report.DataDefinition.ParameterFields

' Add a parameter value - START
Dim strFDate As String = Request.Form("fdate")
Dim strtoDate As String = Request.Form("todate")
Dim strNo As String = Request.Form("strnum")
Dim itmNum As String = Request.Form("itemnum")
Dim supNum As String = Request.Form("supnum")

crParameterDiscreteValue = New ParameterDiscreteValue
crParameterValues = New ParameterValues
crParameterDiscreteValue.Value = strFDate
crParameterFieldDefinitions = report.DataDefinition.ParameterFields
crParameterFieldLocation = crParameterFieldDefinitions.Item("FDATE")
crParameterValues = crParameterFieldLocation.CurrentValues
crParameterValues.Add(crParameterDiscreteValue)
crParameterFieldLocation.ApplyCurrentValues(crParameterValues)
'crParameterFieldDefinitions.

' -----------------------------

crParameterDiscreteValue1 = New ParameterDiscreteValue
crParameterValues1 = New ParameterValues
crParameterDiscreteValue1.Value = strtoDate
'crParameterFieldDefinitions1 = report.DataDefinition.ParameterFields
crParameterFieldLocation1 = crParameterFieldDefinitions.Item("TODATE")
crParameterValues1 = crParameterFieldLocation1.CurrentValues
crParameterValues1.Add(crParameterDiscreteValue1)
crParameterFieldLocation1.ApplyCurrentValues(crParameterValues1)
'-------------------------------------


crParameterDiscreteValue2 = New ParameterDiscreteValue
crParameterValues2 = New ParameterValues
crParameterDiscreteValue2.Value = supNum
'crParameterFieldDefinitions2 = report.DataDefinition.ParameterFields
crParameterFieldLocation2 = crParameterFieldDefinitions.Item("SUPNUM")
crParameterValues2 = crParameterFieldLocation2.CurrentValues
crParameterValues2.Add(crParameterDiscreteValue2)
crParameterFieldLocation2.ApplyCurrentValues(crParameterValues2)
'-------------------
crParameterDiscreteValue3 = New ParameterDiscreteValue
crParameterValues3 = New ParameterValues
crParameterDiscreteValue3.Value = itmNum
'crParameterFieldDefinitions3 = report.DataDefinition.ParameterFields
crParameterFieldLocation3 = crParameterFieldDefinitions.Item("ITMNUM")
crParameterValues3 = crParameterFieldLocation3.CurrentValues
crParameterValues3.Add(crParameterDiscreteValue3)
crParameterFieldLocation3.ApplyCurrentValues(crParameterValues3)
'------------------------------------------------

crParameterDiscreteValue4 = New ParameterDiscreteValue
crParameterValues4 = New ParameterValues
crParameterDiscreteValue4.Value = strNo
'crParameterFieldDefinitions4 = report.DataDefinition.ParameterFields
crParameterFieldLocation4 = crParameterFieldDefinitions.Item("STRNUM")
crParameterValues4 = crParameterFieldLocation4.CurrentValues
crParameterValues4.Add(crParameterDiscreteValue4)
crParameterFieldLocation4.ApplyCurrentValues(crParameterValues4)
'------------------------------------------------



CrystalReportViewer1.ParameterFieldInfo = crParameterFieldDefinitions1

CrystalReportViewer1.ReportSource = report


End Sub