Dim AnzahlenBindingSource As New BindingSource
        Dim LagerlisteAusgabeBindingSource As New BindingSource
        Me.Cursor = Cursors.WaitCursor
        'Abfrage der Tabelle "Lagerliste" im DataSet
        Dim Q = From row As DataRow In LagerlisteDB.Lagerliste
                Let Maximo = row.Field(Of String)("Maximo")
            Where Not String.IsNullOrEmpty(Maximo)
            Select Maximo, Standort = row.Field(Of String)("Standort"), _
            Artikelbezeichnung = row.Field(Of String)("Artikelbezeichnung"), _
            Artikelnummer = row.Field(Of String)("Artikelnummer")
            Group By 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
 
    End Sub