Ok ...
Private Sub cmdSave_Click()
Dim resp
resp = MsgBox("Are you sure you want to save the record?", vbYesNo + vbQuestion, "Save Changes")
If resp = vbYes Then
' do nothing
Else
Cancel = True ' cancels the update
Exit Sub ' ************** add this also
End If
' DoCmd.RunCommand acCmdSaveRecord
Me.Dirty = False ' save the record - use this instead
Docmd.GoToRecord ,,acNewRec ' go to a new record
' DoCmd.Close ' Why would you close the form - if you want to clear the fields ??
End Sub