Public Function parameter()
        ' Deklariert die erforderlichen Variablen.
        Dim discreteParam As New ParameterDiscreteValue
        Dim rangeParam As New ParameterRangeValue
        Dim paramField As ParameterFieldDefinition
        Dim currentValues As ParameterValues
        Dim defaultValues As ParameterValues
        Cn = New OdbcConnection(sCn)
        Dim anzahl As Integer
        Cn.Open()
        cmd = New OdbcCommand("select ...............", Cn)
        dr = cmd.ExecuteReader
        If dr.HasRows Then      
            Dim i As Integer
            Do While dr.Read    
                Try
                    ' Ruft das ParameterFieldDefinition-Objekt nach Namen ab.
                    paramField = _
                    oRep.DataDefinition.ParameterFields.Item("KFZ")
                    ' Wendet die aktuellen Parameterwerte an.
                    paramField.ApplyCurrentValues(currentValues)
                    ' Legt den eindeutigen Parameterwert fest.
                    discreteParam.Value = dr.Item(0)
                    ' Ruft die ParameterValues-Auflistung ab und fügt den
                    '  eindeutigen Wert hinzu.
                    defaultValues = paramField.DefaultValues
                    defaultValues.Add(discreteParam)
                    ' Wendet die Standardparameterwerte an.
                    paramField.ApplyDefaultValues(defaultValues)
                    ' Wendet die Standardparameterwerte an.
                    paramField.ApplyDefaultValues(defaultValues)
                Catch ex As Exception
                    MsgBox(ex.Message)
                    Exit Do     
                End Try
            Loop
            dr.Close()
        End If
        Cn.Close()
    End Function