Dim pvCustPattern As CrystalDecisions.Shared.ParameterValues
Dim pdvCustPattern As CrystalDecisions.Shared.ParameterDiscreteValue
   If dr.HasRows Then
         While dr.Read
                pvCustPattern = New CrystalDecisions.Shared.ParameterValues
                pdvCustPattern = New _
                  CrystalDecisions.Shared.ParameterDiscreteValue
                pdvCustPattern.Value = dr.Item(0)
                pvCustPattern.Add(pdvCustPattern)
oRep.DataDefinition.ParameterFields("KFZ").ApplyCurrentValues(pvCustPattern)
              Try
                Catch ex As Exception
                    MsgBox(ex.Message)
                    Exit Do     
                End Try
         End While