Dim Db As DAO.Database
Dim Rs As DAO.Recordset
 
Set Db = OpenDatabase(Pfad der DB)
Set Rs = Db.OpenRecordset("tbl_Break")
 
With Rs
    .AddNew
    ![FeldA] = "TextA"
    ![FeldB] = "FeldB"
    .Update
    .Bookmark = .LastModified
End With
 
Set Rs = Nothing
End If