'Datenbank verbinden
    Set Cn = New ADODB.Connection
    With Cn
        .CursorLocation = adUseClient
        .Mode = adModeShareDenyNone
        .Provider = "Microsoft.Jet.OLEDB.4.0"
        .Properties("Data Source") = App.Path & "\Kassabuch.mdb"
        .Open
    End With
 
    'Recordset öffnen
    Set Rs = New ADODB.Recordset
    With Rs
        .ActiveConnection = Cn
        .CursorLocation = adUseClient
        .CursorType = adOpenKeyset
        .LockType = adLockOptimistic
        .Source = "SELECT * FROM HauptTb"
        .Open
    End With
 
 
    'DataGrid anbinden
    Set Me.DataGrid1.DataSource = Rs
 
    ' die Breite der Zellen formatieren
    With DataGrid1
        .AllowRowSizing = False
        .Columns("ID").Width = 900
        .Columns("Datum").Width = 1450
        .Columns("Bezeichnung1").Width = 3000
        .Columns("Einnahme1").Width = 1150
        .Columns("Ausgabe1").Width = 1150
        .Columns("Bezeichnung2").Width = 3000
        .Columns("Einnahme2").Width = 1150
        .Columns("Ausgabe2").Width = 1150
        .Columns("Bezeichnung3").Width = 3000
        .Columns("Einnahme3").Width = 1150
        .Columns("Ausgabe3").Width = 1150
    End With
 
 
    With txt1
        .Text = Date
    End With