Well, I checked the code, but it seems to check out ok. It reads as follows:
Private Sub Addrecord_Click()
On Error GoTo Err_Addrecord_Click
DoCmd.GoToRecord , , acNewRec
Exit_Addrecord_Click:
Exit Sub
Err_Addrecord_Click:
MsgBox Err.Description
Resume Exit_Addrecord_Click...