Dim db As Database, rs As Recordset
Set db = OpenDatabase("c:\mojadatabaza.mdb")    'otvorenie db
Set rs = db.OpenRecordset("Priatelia", dbOpenDynaset)' otvorenie recordsetu
'zmaže aktuálny záznam
rs.Delete
'zmaže všetky záznamy z tabuľky Priatelia
db.Execute "DELETE * FROM Priatelia"
'zmaže všetky záznamy, ktoré majú ako Pivo uvedený Šariš
db.Execute "DELETE * FROM Priatelia " & _
   "WHERE Pivo='Šariš'"