Help with Erro handling

[Big K Hutch]

Here is the code I have so far. When a user delete's a record or tries to exit without completing an update this error occurs. I was thinking of using a "RESUMENEXT " handler. Please help with some input

Big K Hutch

+_+_+_+_+_+_ Current DAOdb Error Handler _+_+_+_+((_

Private Sub cmdAdd_Click()
On Error GoTo AddErr

datPrimaryRS.Re cordset.AddNew
If Trim(txtDAO_Nam e.Text) = "" Then txtDAO_Name.Tex t =

UserName
Exit Sub
AddErr:
MsgBox Err.Description
End Sub

Private Sub cmdDelete_Click ()
On Error GoTo DeleteErr
With datPrimaryRS.Re cordset
.Delete
.MoveNext
If .EOF Then .MoveLast
End With
Exit Sub
DeleteErr:
MsgBox Err.Description
End Sub