Private Sub cmdAdd_Click() 'Add a new row to the recordset Me.Recordset.AddNew Me.Recordset("CompanyName") = "New Company" Me.Recordset.Update 'Move to the row that was added Me.Bookmark = Me.Recordset.Bookmark End Sub