'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"