Public Function FuellenAbteilung(ByVal cboComboBox As ComboBox, Optional ByVal _
  blnMitLeerEintrag As Boolean = False) As clsXXXXX_Abteilungen
        '----------------------------------------------------------------------
        ' -----------------
        'Aufgabe: Fuellen der Combobox mit den verschiedenen Abteilungen
                '--------------------------------------------------------------
                ' -------------------------
        'Eingabe: cboComboBox: ComboBox: zu fuellende Combobox
        '         blnMitLeerEintrag: Boolean (Optional): soll ein Leereintrag 
        ' dazu erzeugt werden
        'Rueckgabe: clsXXXXX_Abteilungen: die gelesenen Abteilungen zurueckgeben
        '----------------------------------------------------------------------
        ' -----------------
        Dim i As Integer
        Dim udtAbteilungen As clsXXXXX_Abteilungen
 
        Try
            udtAbteilungen = New clsXXXXX_Abteilungen
 
            'Combobox leeren
            cboComboBox.Items.Clear()
 
            'Daten aus DB lesen
            udtAbteilungen.Laden(, , blnMitLeerEintrag = True)
 
            'Daten aus Klasse in die Combobox schreiben
 
            cboComboBox.DataSource = udtAbteilungen
            cboComboBox.DisplayMember = "Abteilung"
            cboComboBox.ValueMember = "Kurzname"
 
 
            'ersten Eintrag auswaehlen
            If cboComboBox.Items.Count > 0 Then
                cboComboBox.SelectedIndex = 0
            End If
        Catch ex As Threading.ThreadAbortException
            'bei einer ThreadAbortException soll gar nichts passieren
        Catch ex As Exception
            'im Fehlerfall Fehlermeldung ausgeben
            ErrorMessage1(ex)
        End Try
        Return udtAbteilungen
    End Function