' Declare variables needed to pass the parameters  to the viewer control.
                Dim paramFields As New CrystalDecisions.Shared.ParameterFields
                Dim paramField As New CrystalDecisions.Shared.ParameterField
                Dim discreteVal As New _
                  CrystalDecisions.Shared.ParameterDiscreteValue
                Dim rangeVal As New CrystalDecisions.Shared.ParameterRangeValue
                Dim DateRange As String = "Statistik 01.Jan 2005 - 30.Jun 2005"
                ' The first parameter is a discrete parameter with multiple 
                ' values.
                ' Set the name of the parameter field, this must match a 
                ' parameter in the report.
                paramField.ParameterFieldName = "Titel"
                ' Set the first discrete value and pass it to the parameter
                discreteVal.Value = DateRange
                paramField.CurrentValues.Add(discreteVal)
                ' Add the parameter to the parameter fields collection.
                paramFields.Add(paramField)
                ' Set the parameter fields collection into the viewer control.
                Me.CRViewer.ParameterFieldInfo = paramFields