Pentru a insera o înregistrare nouă, utilizați metoda AddNew a obiectului RecordSet. Apoi aveți posibilitatea să asociați date câmpurilor din înregistrare. După aceea, utilizați metoda Update pentru a salva datele în tabel în baza de date. Următorul exemplu utilizează o instrucțiune With pentru a efectua aceste acțiuni:

Sub AddOne()

Dim myDatabase As DAO.Database

Set myDatabase = DBEngine.OpenDatabase("C:\temp\Northwind.accdb")

Dim myRecordset As DAO.Recordset

Set myRecordset = myDatabase.OpenRecordset _

(Name:="SELECT * FROM Customers", _

Type:=dbOpenDynaset)

With myRecordset .AddNew

.Fields("ID").Value = 32 .Fields("Last Name").Value = "Murphy"

.Fields("First Name").Value = "Andrea"

.Fields("Company").Value = "Company RP"

.Fields("City").Value = "City of Industry"

'add data for the other fields here .Update 

End With

Set myRecordset = Nothing 

End Sub

După ce apăsați F5 în Editorul VBA pentru a testa acest cod, comutați la Access, afișați tabelul Customers și apoi va trebui să apăsați tasta F5 pentru a reîmprospăta vizualizarea în Access înainte de a vedea această nouă înregistrare.

Pentru a șterge o înregistrare, identificați-o fie mutându-vă la ea, fie căutând-o, apoi utilizați metoda Delete urmată de metoda Update. Următorul exemplu șterge înregistrarea curentă și apoi actualizează tabelul:

myRecordset.Edit

myRecordset.Delete

myRecordset.Update