Private Sub btn_Gut_Minuten_Buchen_Click(sender As Object, e As EventArgs) _
  Handles btn_Gut_Minuten_Buchen.Click
        Dim von_Datum = Today.AddDays(0)
        Dim cal As Globalization.Calendar = _
        Globalization.CultureInfo.CurrentCulture.Calendar
        Me.Cursor = Cursors.WaitCursor
 
        Dim q = From row As DataRow In AblageDB.Notizen
         Let Minuten = row.Field(Of Integer)("ToDoDauer")
         Let ToDo = row.Field(Of Date)("ToDoBeginn").ToShortDateString
         Where von_Datum = row.Field(Of Date)("ToDoBeginn").ToShortDateString
         Group By art = ToDo Into Sum(Minuten), Count()
 
        Dim df As New DataTable
        With df.Columns
            .Add("ToDo", GetType(String))
            .Add("Count", GetType(Integer))
            .Add("Minuten", GetType(Integer))
        End With
        For Each el In q
            df.Rows.Add(el.art, el.Count, el.Sum)
        Next el
 
        Dim bs As New BindingSource With {.DataSource = df}
        bs.Sort = "Count DESC"
 
        Dim _Sum As Integer
        _Sum = df.AsEnumerable().Sum(Function(row) row.Field(Of Integer)( _
          "Minuten"))
 
        'Daten in der DGV anzeigen
        DGV3.DataSource = bs
 
        With DGV3
            .Columns(0).AutoSizeMode = DataGridViewAutoSizeColumnsMode.Fill
            .Columns(1).Width = 60
            .Columns(1).DefaultCellStyle.Alignment = _
              DataGridViewContentAlignment.MiddleRight
            .Columns(2).Width = 60
            .Columns(2).DefaultCellStyle.Alignment = _
              DataGridViewContentAlignment.MiddleRight
        End With
 
        With DGV3
            .EnableHeadersVisualStyles = False
            .ColumnHeadersDefaultCellStyle.Alignment = _
              DataGridViewContentAlignment.MiddleCenter
            .ColumnHeadersDefaultCellStyle.BackColor = Color.DimGray
            .ColumnHeadersDefaultCellStyle.ForeColor = Color.FloralWhite
            .BackgroundColor = Color.LightGray
            .Font = New Font("Consolas;", 9.5, FontStyle.Regular)
            .ColumnHeadersBorderStyle = DataGridViewHeaderBorderStyle.Single
            .ColumnHeadersHeight = 28
            .ColumnHeadersHeightSizeMode = _
              DataGridViewColumnHeadersHeightSizeMode.DisableResizing
            .RowHeadersVisible = False
            .GridColor = System.Drawing.Color.DarkGray
            .SelectionMode = DataGridViewSelectionMode.FullRowSelect
            .DefaultCellStyle.WrapMode = DataGridViewTriState.True
            .AutoSizeRowsMode = DataGridViewAutoSizeRowsMode.AllCells
        End With
        With DGV3.DefaultCellStyle
            .SelectionForeColor = Color.OldLace
            .SelectionBackColor = Color.Olive
            .BackColor = Color.LightGray
            .ForeColor = Color.Black
            .Font = New Font("Consolas;", 8.0, FontStyle.Regular)
        End With
        With DGV3.AlternatingRowsDefaultCellStyle
            .SelectionForeColor = Color.OldLace
            .SelectionBackColor = Color.Olive
            .BackColor = Color.WhiteSmoke
            .ForeColor = Color.Black
            .Font = New Font("Consolas;", 8.0, FontStyle.Regular)
        End With
 
        Me.Cursor = Cursors.Default
    End Sub