SELECT myPBtbl.Quelle, Right([Sortierdatum],4) AS Jahr, myPBtbl.[Debitor Nr], _
  myPBtbl.Frankierlizenz, myPBtbl.Produkt
FROM (myPBtbl 
INNER JOIN myPBConv_KdDaten ON (myPBtbl.Frankierlizenz = _
  myPBConv_KdDaten.Frankierlizenz) AND (myPBtbl.[Debitor Nr] = _
  myPBConv_KdDaten.Debitor)) 
INNER JOIN myPBConv_Produkte ON (myPBConv_KdDaten.GlobeCustID = _
myPBConv_Produkte.GlobeCustID) AND (myPBtbl.Produkt = _
myPBConv_Produkte.myPBProdukt)
GROUP BY myPBtbl.Quelle, Right([Sortierdatum],4), myPBtbl.[Debitor Nr], _
myPBtbl.Frankierlizenz, myPBtbl.Produkt;

 Dim analyse = From report In myPBtbl _
                    Group report By quelle = report("quelle"), jahr = _
                    Strings.Right(report("Sortierdatum"), 4), debitor = report( _
                    "Debitor Nr"), frankierlizenz = report("Frankierlizenz"), _
                    produkt = report("Produkt")
                    Into g = Group _
                    Join dbKdInfos In myPBConv_KdDaten On frankierlizenz Equals _
                    dbKdInfos("Frankierlizenz") And debitor Equals dbKdInfos( _
                    "Debitor") _
                    Join dbPrInfos In myPBConv_Produkte On dbKdInfos( _
                    "GlobeCustID") Equals dbPrInfos("GlobeCustID") And produkt _
                    Equals dbPrInfos("myPBProdukt") _
                    Select New With {quelle, jahr, debitor, frankierlizenz, _
                    produkt, .Anzahl = g.Count, _
                                     .GlobeId = dbKdInfos("GlobeCustID"), _
                                     .EndKunde = dbKdInfos("Referenz"), _
                                     .GlobeProdukt = dbPrInfos("GlobeProdukt"), _
                                     .OfferID = dbPrInfos("GlobeOfferID"), _
                                     .OfferPos = dbPrInfos("OfferPosID")}