Private Function Kosten1(year As Integer) As DataTable
        Dim Text As String = ""
        Dim dt As DataTable = HBDatenbankDS.Kontodetails
        Dim cal As Globalization.Calendar = _
          Globalization.CultureInfo.CurrentCulture.Calendar
        Me.Cursor = Cursors.WaitCursor
        Dim q = From row As DataRow In dt
          Let Betrag = row.Field(Of Integer)("Betrag")
          Let Buchung = row.Field(Of String)("Buchungsart")
          Where year = row.Field(Of Date)("Buchungsdatum").Year _
          AndAlso row.Field(Of Integer)("UserID") = aktBenutzerRow.ID _
                 AndAlso row.Field(Of String)("Buchungsart") <> Text _
          Group By art = Buchung Into Sum(Betrag), Count()
 
        Dim df As New DataTable
        With df.Columns
            .Add("Buchungsart", GetType(String))
            .Add("Count", GetType(Integer))
            .Add("Betrag", GetType(Double))
        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 Double)( _
          "Betrag"))
 
       'Daten in der DGV anzeigen
        DGV1.DataSource = bs