Dim Db As Database
Dim Rs As Recordset
 
Set Db = DBEngine.OpenDatabase(App.Path & "Adressen.mdb")
Set Rs = Db.OpenRecordset("SELECT * FROM Adressen WHERE PersID = 10")
 
Rs.Edit
Rs("Name") = txtName.Text
Rs("Vorname") = txtVorname.Text
...
Rs.Update
 
Rs.Close
Set Rs = Nothing
Db.Close
Set Db = Nothing