Dim db As Database, rs As Recordset
Set db = OpenDatabase("c:\mojadatabaza.mdb")    'otvorenie db
Set rs = db.OpenRecordset("Priatelia", dbOpenDynaset)' otvorenie recordsetu
'zmena obľúbeného piva na Martin v aktuálnom zázname
rs.Edit
rs!Pivo = "Martin"
rs.Update
'zmena piva u všetkých priateľov na Budvar
db.Execute "UPDATE Priatelia " & _
           "SET Pivo='Budvar'"
'Za príkazom SET môže nasledovať aj podmienka WHERE