Dim xml As New Xml.XmlDocument
        xml.Load(ndb.xml)
        Dim lo As New List(Of String)
        For Each n As Xml.XmlNode In xml.SelectNodes("Noten_Table/noten[not(" & _
          "Fach=preceding-sibling::noten/Fach)]/Fach")
            lo.Add(n.InnerText)
        Next
        lo.Sort()
        ComboBox1.DataSource = lo

        Dim lo As New List(Of String)
        For Each dr As DataRowView In bs
            If Not lo.Contains(dr("Fach")) Then
                lo.Add(dr("Fach"))
            End If
        Next
        lo.Sort()
        ComboBox1.DataSource = lo

Those people who think they know everything are a great annoyance to those of us who do - Isaac Asimov