Private Sub SetParameters() Dim objParameterFieldDefinition As CrystalDecisions.CrystalReports.Engine.ParameterFieldDefinition Dim objParameterValues As CrystalDecisions.Shared.ParameterValues Dim objParameterDiscreteValue As CrystalDecisions.Shared.ParameterDiscreteValue 'Set the parameter name on the next line objParameterFieldDefinition = rptReport.DataDefinition.ParameterFields.Item("pMgmtFees") objParameterValues = New CrystalDecisions.Shared.ParameterValues objParameterDiscreteValue = New CrystalDecisions.Shared.ParameterDiscreteValue 'Set the parameter value on the next line objParameterDiscreteValue.Value = Me.mdecMgmtFees objParameterValues.Add(objParameterDiscreteValue) objParameterFieldDefinition.ApplyCurrentValues(objParameterValues) 'Set the parameter name on the next line objParameterFieldDefinition = rptReport.DataDefinition.ParameterFields.Item("pIncentiveFees") objParameterValues = New CrystalDecisions.Shared.ParameterValues objParameterDiscreteValue = New CrystalDecisions.Shared.ParameterDiscreteValue 'Set the parameter value on the next line objParameterDiscreteValue.Value = Me.mdecIncentiveFees objParameterValues.Add(objParameterDiscreteValue) objParameterFieldDefinition.ApplyCurrentValues(objParameterValues) End Sub>Hello,