Dim AnzahlenBindingSource As New BindingSource
        Dim LagerlisteAusgabeBindingSource As New BindingSource
        Me.Cursor = Cursors.WaitCursor
        'Abfrage der Tabelle "Lagerliste" im DataSet
        Dim Q = From row In LagerlisteDB.Lagerliste
                Where Not row.IsMAXIMONull
                Group By row.MAXIMO Into Anzahl = Count(), Artikel = Group
                Order By Anzahl Descending
 
        AnzahlenBindingSource.DataSource = Q
        LagerlisteAusgabeBindingSource.DataSource = AnzahlenBindingSource
        LagerlisteAusgabeBindingSource.DataMember = "Artikel"
 
        'Zeigt alle vorkommenden Maximo-Nummern und die Anzahl
        With AnzahlenDataGridView
            .AllowUserToDeleteRows = False
            .AllowUserToAddRows = False
            .ReadOnly = True
            .MultiSelect = False
            .SelectionMode = DataGridViewSelectionMode.FullRowSelect
            .AutoGenerateColumns = True
            .DataSource = AnzahlenBindingSource
        End With
 
        'Zeigt die Einträge in der Lagerliste, einer Maximo-Nummer.
        With LagerlisteAusgabeDataGridView
            .AllowUserToDeleteRows = False
            .AllowUserToAddRows = False
            .AutoGenerateColumns = True
            .DataSource = LagerlisteAusgabeBindingSource
        End With
 
 
        Me.Cursor = Cursors.Default