Dim ids As New List(Of String)
        For Each dr As DataRow In Me.NWINDDataSet1.Products
            Dim id As String = dr("CategoryId")
            If Not ids.Contains(id) Then
                ids.Add(id)
            End If
        Next
        ids.Sort()
        ComboBox1.DataSource = ids

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist