Pass more than two parameters to Crystal Reports from VB.NET

Below is my code in VB.NET 2010 to pass parameters in Crystal Report.

All the way I am able to pass one parameter in report which is packing_size (I have created packing_size field in Crystal Reports Parameter Fields)

Now I want to pass a second parameter with AND or OR condition.

Can I get help?

I have come all the way at 99% I want to complete it @100%, PLEASE HELP

Code as below:

Imports System.Data.OleDb
Imports CrystalDecisions.CrystalReports.Engine
Imports CrystalDecisions.Shared

PublicClass frmrptProducts
PrivateSub frmrptProducts_Load(ByVal sender As System.Object,ByVal e As System.EventArgs)HandlesMyBase.Load

   Dim cryRpt AsNew ReportDocument
   Dim CrTables As Tables
   Dim crtableLogoninfo AsNew TableLogOnInfo
   Dim crConnectionInfo AsNew ConnectionInfo

   'load report
  cryRpt.Load(ReportPath &"CRproducts.rpt")

   'Connection
   With crConnectionInfo
   .ServerName = My.Application.Info.DirectoryPath.ToString()&"\data\db.mdb"
   '.DatabaseName = ""
   '.UserID = ""
   .Password =""
   EndWith

   'Passing parameters code starts here
   Dim crParameterFieldDefinitions As ParameterFieldDefinitions
   Dim crParameterFieldDefinition As ParameterFieldDefinition
   Dim crParameterValues AsNew ParameterValues
   Dim crParameterDiscreteValue AsNew ParameterDiscreteValue

  crParameterDiscreteValue.Value ="200"
  crParameterFieldDefinitions = cryRpt.DataDefinition.ParameterFields
  crParameterFieldDefinition = crParameterFieldDefinitions.Item("packing_size")'
  crParameterValues = crParameterFieldDefinition.CurrentValues

  crParameterValues.Clear()
  crParameterValues.Add(crParameterDiscreteValue)
  crParameterFieldDefinition.ApplyCurrentValues(crParameterValues)
   'Passing parameters code ends here

  CRV.ReportSource = cryRpt
  CRV.Refresh()

   'Catch ex As Exception
   ' MsgBox(ex.Message)
   'End Try

EndSub

EndClass