Sub Aktualisieren()
 
        Dim Sql As String = "SELECT * FROM Kassenbuch Order By Periode, Datum"
        Dim Cn As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;" & _
          "Data Source=D:\Eigene" & _
          "Dateien\Kassenbuch\Kassenbuch.NET\kassenbuch.mdb")
        Dim Da As New OleDb.OleDbDataAdapter(Sql, Cn)
        Dim Cmd As New OleDb.OleDbCommand()
        Dim Dt As New DataTable()
 
        Dim SummeE As String
        Dim SummeA As String
        Dim SummeED As Double
        Dim SummeAD As Double
        Dim Bestand As Double
 
        Try
            Da.Fill(Dt)
        Catch ex As Exception
            Debug.WriteLine(ex.ToString())
        End Try
 
        Cmd.Connection.Open("Select SUM(Einnahme) As Summe From Kassenbuch", Cn)
        txtEinnahmen.Text = Format(Cmd.("Summe").Value, "#,##0.00")
        Cmd.Connection.Close()
 
        Rs1 = New ADODB.Recordset()
        Rs1.Open("Select SUM(Ausgabe) As Summe From Kassenbuch", Cn, _
          ADODB.CursorTypeEnum.adOpenDynamic, _
          ADODB.LockTypeEnum.adLockOptimistic)
        txtAusgaben.Text = VB6.Format(Rs1.Fields("Summe").Value, "#,##0.00")
        Rs1.Close()
 
        SummeE = Replace(txtEinnahmen.Text, ",", ".", 1, -1, CompareMethod.Text)
        SummeED = CDbl(SummeE)
        SummeA = Replace(txtAusgaben.Text, ",", ".", 1, -1, CompareMethod.Text)
        SummeAD = CDbl(SummeA)
        Bestand = CDbl(SummeE) - CDbl(SummeA)
        txtBestand.Text = VB6.Format(Bestand / 100, "#,##0.00")
 
        For i = 0 To datBuchungen.Columns.Count - 1
            datBuchungen.Columns(i).AllowSizing = True
            datBuchungen.Columns(i).Locked = False
        Next i
 
 
        datBuchungen.DataSource = Dt
 
        For i = 0 To datBuchungen.Columns.Count - 1
            datBuchungen.Columns(i).AllowSizing = False
            datBuchungen.Columns(i).Locked = True
        Next i
 
        datBuchungen.Columns(1).Width = VB6.TwipsToPixelsX(1000)
        datBuchungen.Columns(2).Width = VB6.TwipsToPixelsX(1000)
        datBuchungen.Columns(3).Width = VB6.TwipsToPixelsX(900)
        datBuchungen.Columns(4).Width = VB6.TwipsToPixelsX(1100)
        datBuchungen.Columns(5).Width = VB6.TwipsToPixelsX(3220)
        datBuchungen.Columns(6).Width = VB6.TwipsToPixelsX(620)
        datBuchungen.RowHeight = 210
        datBuchungen.AllowRowSizing = False
        datBuchungen.Columns(0).Visible = False
        datBuchungen.Columns(1).Alignment = _
          MSDataGridLib.AlignmentConstants.dbgRight
        datBuchungen.Columns(2).Alignment = _
        MSDataGridLib.AlignmentConstants.dbgRight
        datBuchungen.Columns(3).Alignment = _
        MSDataGridLib.AlignmentConstants.dbgRight
        datBuchungen.Columns(1).NumberFormat = "#,##0.00"
        datBuchungen.Columns(2).NumberFormat = "#,##0.00"
        datBuchungen.ScrollBars = MSDataGridLib.ScrollBarsConstants.dbgVertical
 
    End Sub