Dim db As Database, rs As Recordset
Set db = OpenDatabase("c:\mojadatabaza.mdb")    'otvorenie db
Set rs = db.OpenRecordset("Priatelia", dbOpenDynaset)' otvorenie recordsetu
'pridanie nového záznamu do tabuľky Priatelia
rs.AddNew
rs!Meno = "Maťo"
rs!Pivo = "Kozel"
rs.Update    'aktualizovanie databázy
rs.Bookmark = rs.LastModified    'presun na nový záznam
Debug.Print rs!Pivo    'vypíše Kozel