This is the code I am using
Private Sub cmdAddRow_Click()
MsgBox "Adding new row to database..."
'CurrentDb.Execute "INSERT into BR_Master([BRID], [Analyst], [Branch])VALUES (1, 'Kelly', 'PSPC');"
On Error GoTo trap
Dim db As DAO.Database
Dim rs As DAO.Recordset
Set db = CurrentDb()
Set rs =...