Private Sub connOpen()
    'Prozedur, welche eine Verbindung zur Datenbank herstellt und ein Recordset 
    ' öffnet, welche den Inhalt der
    'Tabellen "Zeitdaten" enthält
 
    Dim sSQLTime As String          'Variable für den SQL der Tabelle Zeitdaten
    Dim sDBFileName As String       'Variable für Pfad zur Datenbankdatei *.mdb
 
    sDBFileName = App.Path & "\Schleifen.mdb"
    sSQLTime = "SELECT * FROM Zeitdaten ORDER BY lfdNummer"
 
    Set connTime = New ADODB.Connection
    Set recTime = New ADODB.Recordset
 
    ' *** Connection öffnen
    With connTime
        .Provider = "Microsoft.Jet.OLEDB.4.0"
        .Properties("Data Source").Value = sDBFileName
        .CursorLocation = adUseClient
        .Mode = adModeShareDenyNone
        .Open
    End With
 
    'Überprüfung, ob eine Verbindung besteht
    If connTime Is Nothing Then MsgBox "Keine Verbindung vorhanden"
 
    ' *** Recordsets öffnen
    'Kunden
    With recTime
        Set .ActiveConnection = connTime
        .Source = sSQLTime
        .CursorLocation = adUseClient
        .CursorType = adOpenStatic
        .LockType = adLockOptimistic
        .Open
    End With
 
    'Überprüfung, ob das Recordset besteht
    If recTime Is Nothing Then MsgBox "Kein Recordset vorhanden"
 
End Sub

Private Sub UpdateDB()
 
    Dim slfdNr As String
    Dim dlfdNr As Double    'Variable für die ermittelte lfdNr des Letzten 
    ' Datensatzes
    Dim dNewNr As Double    'Variable für die lfdNr des neuen Datensatzes
 
    With recTime
        '.MoveLast
        'slfdNr = .Fields("lfdNummer").Value
        'dlfdNr = CDbl(slfdNr)
        'dNewNr = dlfdNr + 1
 
        .AddNew
 
        !lfdNummer = CStr(2)
        !Name = lblName.Caption
        !Tag = Format(Date, "dd")
        !Monat = MonthName(Month(Date))
        !Jahr = Format(Date, "yyyy")
        !Wochentag = WeekdayName(Weekday(Date))
        !Schicht = Cal_Schicht
        !Maschine = lblMaschine
        !Zeit = txtZeit
 
        .Update
 
    End With
 
End Sub