Public Sub subLoadGroup()
    Me.lbxGrouped.Items.Clear()
 
    Me.lbxGrouped.Sorted = True
    Me.lbxGrouped.BeginUpdate()
    Me.lbxGrouped.Items.Add("-- Alle anzeigen --")
 
    For Each dr As DataRow In dsKundenPreiseMultiArtikel.Tables( _
      "KundenPreise").Rows
      If Not Me.lbxGrouped.Items.Contains(dr("GroupedNummer").ToString()) Then
        Me.lbxGrouped.Items.Add(dr("GroupedNummer").ToString())
      End If
    Next
    Me.lbxGrouped.EndUpdate()
End Sub