Public Sub SetRepParams(ByRef r As ReportDocument, ByVal ParamName As String, ByVal ParamValue As String)

        ''CR Variables

        Dim crReportDocument As rptDelivList2 
        Dim crParameterFieldDefinitions As ParameterFieldDefinitions
        Dim crParameterFieldDefinition As ParameterFieldDefinition
        Dim crParameterValues As ParameterValues

        Dim crParameterDiscreteValue As ParameterDiscreteValue

        ''Create an instance of the strongly-typed report object
        crReportDocument = r 

        'Get the collection of parameters from the report
        crParameterFieldDefinitions = crReportDocument.DataDefinition.ParameterFields
        ''Access the specified parameter from the collection
        crParameterFieldDefinition = crParameterFieldDefinitions.Item(ParamName)

        ''Get the current values from the parameter field.  At this point
        ''there are zero values set.
        crParameterValues = crParameterFieldDefinition.CurrentValues

        ''Set the current values for the parameter field
        crParameterDiscreteValue = New ParameterDiscreteValue
        crParameterDiscreteValue.Value = ParamValue '1st current value

        ''Add the first current value for the parameter field
        crParameterValues.Add(crParameterDiscreteValue)

        ''All current parameter values must be applied for the parameter field.
        crParameterFieldDefinition.ApplyCurrentValues(crParameterValues)

    End Sub