Add new a row to recordset
Sub exaRecordsetAddNew() Dim db As Database Dim rs As Recordset Set db = CurrentDb Set rs = db.OpenRecordset("Books") Debug.Print "Current title: " & rs!Title With rs .AddNew ' Add new record !ISBN = "0-000" ' Set fields !Title = "New Book" !PubID = 1 !Price = 100 .Update ' Save changes. .Bookmark = rs.LastModified ' Go to new record Debug.Print "Current title: " & rs!Title End With rs.Close End Sub