Dim Q = From row In DataSet1.Lagerliste
            Where Not row.IsMaximoNull
            Select row.Standort, row.Artikelbezeichnung, row.Maximo, _
            Nummer = If(row.IsNummerNull, Nothing, CType(row.Nummer, Nullable( _
            Of Integer)))
            Group By Maximo Into Anzahl = Count(), Artikel = Group
            Order By Anzahl Descending

    Dim Q = From row As DataRow In DataSet1.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"), _
            Nummer = row.Field(Of Integer?)("Nummer")
            Group By Maximo Into Anzahl = Count(), Artikel = Group
            Order By Anzahl Descending