U have problems Somewhere in code ,
Here is Working code for Your problem
--------------------------------------------------------------
Dim cryRpt As New rep1
Dim crParameterFieldDefinitions As ParameterFieldDefinitions
Dim crParameterFieldDefinition As ParameterFieldDefinition
Dim crParameterValues As New ParameterValues
Dim param As New ParameterDiscreteValue
crParameterFieldDefinitions = cryRpt.DataDefinition.ParameterFields
param = New CrystalDecisions.Shared.ParameterDiscreteValue
param.Value = "230"
crParameterFieldDefinition = crParameterFieldDefinitions.Item("total")
crParameterValues = crParameterFieldDefinition.CurrentValues
crParameterValues.Add(param)
crParameterFieldDefinition.ApplyCurrentValues(crParameterValues)
param = New CrystalDecisions.Shared.ParameterDiscreteValue
param.Value = "15"
crParameterFieldDefinition = crParameterFieldDefinitions.Item("price")
crParameterValues = crParameterFieldDefinition.CurrentValues
crParameterValues.Add(param)
crParameterFieldDefinition.ApplyCurrentValues(crParameterValues)
param = New CrystalDecisions.Shared.ParameterDiscreteValue
param.Value = "5"
crParameterFieldDefinition = crParameterFieldDefinitions.Item("foodorder")
crParameterValues = crParameterFieldDefinition.CurrentValues
crParameterValues.Add(param)
crParameterFieldDefinition.ApplyCurrentValues(crParameterValues)
param = New CrystalDecisions.Shared.ParameterDiscreteValue
param.Value = "12"
crParameterFieldDefinition = crParameterFieldDefinitions.Item("quantity")
crParameterValues = crParameterFieldDefinition.CurrentValues
crParameterValues.Add(param)
crParameterFieldDefinition.ApplyCurrentValues(crParameterValues)
param = New CrystalDecisions.Shared.ParameterDiscreteValue
param.Value = "4"
crParameterFieldDefinition = crParameterFieldDefinitions.Item("folioid")
crParameterValues = crParameterFieldDefinition.CurrentValues
crParameterValues.Add(param)
crParameterFieldDefinition.ApplyCurrentValues(crParameterValues)
CrystalReportViewer1.ReportSource = cryRpt
CrystalReportViewer1.Refresh()