Dim dt As DataTable = TPMDB.Stoerungen
        Dim cal As Globalization.Calendar = _
           Globalization.CultureInfo.CurrentCulture.Calendar
        'Stoerdauer = Reihe.UGruppe.Sum(Function(f) f.Stoerdauer)
        'Minuten_Ausfallzeit = If(Störzeiten_Abfrage.Count > 0, 
        ' Störzeiten_Abfrage.ToList.Select(Function(x) x.Stoerdauer).Sum, 0)
        'Minuten_Ausfallzeit = BS_Maschinen_Liste.Where(Function(x) x.ID = 
        ' IDMaschine).Select(Function(x) x.Taktzeit).FirstOrDefault
        Dim q = From row As DataRow In dt
              Let wk As Integer = _
                cal.GetWeekOfYear(row.Field(Of Date)("Eintrag"), _
                Globalization.CalendarWeekRule.FirstFourDayWeek, _
                DayOfWeek.Monday)
              Where year = row.Field(Of Date)("Eintrag").Year _
                AndAlso wk = week _
                AndAlso row.Field(Of Integer)("MaschinenID") = masch
              Group By art = row.Field(Of String)("ArtderStörung") Into Count()
 
        Dim df As New DataTable
        df.Columns.Add("ArtderStörung") : df.Columns.Add("Count", GetType( _
          Integer))
 
        For Each el In q
            df.Rows.Add(el.art, el.Count)
        Next el
 
        Dim bs As New BindingSource With {.DataSource = df}
        bs.Sort = "Count DESC"