Dim DB As Database
Dim Rs As Recordset
 
    Set DB = DBEngine.OpenDatabase("Pfad.mdb", False, False, ";pwd=")
 
    Set Rs = DB.OpenRecordset("Test", dbOpenDynaset)
  With Rs
    .AddNew
    !Name = sName
    !Vorname = sVName
    !Geburtsdatum = dDatum
    .Update
  End With
 
    DB.Close