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