Dim DB As Database
Dim Table As Recordset
Dim person As DB_PERSON
 
Set DB = Workspaces(0).OpenDatabase(Databasefile, False, False)
Set Table = DB.OpenRecordset("PERSON")
 
Table.AddNew
Table("SURENAME") = surename
Table("FIRSTNAME") = firstname