Dim db As DAO.Database
Dim rs As DAO.Recordset
 
Set db = OpenDatabase("....")
 
Set rs = db.OpenRecordset("TabelleOderAbfrage", dbOpenDynamic)
rs.AddNew
rs.Fields("....") = "Feldx"
....
rs.Update
MsgBox "Neue ID: " & rs.Fields("ID-Feld")