CheckedListBox1.Items.Clear()
        If AEKODATEN.Fachbereiche.Rows.Count > 0 Then
            For i As Integer = 0 To AEKODATEN.Fachbereiche.Rows.Count - 1
                CheckedListBox1.Items.Add(CStr(AEKODATEN.Fachbereiche.Rows( _
                  i).Item("Fachbereich")).ToString)
            Next
 
        End If

 Private Sub LoadCheckedListBox()
 
        If AEKODATEN.Fachbereiche.Rows.Count > 0 Then
            For i As Integer = 0 To AEKODATEN.Fachbereiche.Rows.Count - 1
                CheckedListBox1.Items.Add(CStr(AEKODATEN.Fachbereiche.Rows( _
                  i).Item("Fachbereich")).ToString)
            Next
 
        End If
    End Sub