[AccessD] deletion of record from popup

I have a displayed record (in edit mode) and display a popup when the delete command button asks the question. Are you sure?.  Popup created and code for Yes Command Button is below.  But nothing happens. Does anyone have an example or know what I am doing wrong? 

On Error GoTo Err_Delete_Record_Click


    DoCmd.DoMenuItem A_FORMBAR, A_EDITMENU, A_SELECTRECORD_V2, ,
A_MENU_VER20
    DoCmd.DoMenuItem A_FORMBAR, A_EDITMENU, A_DELETE_V2, , A_MENU_VER20

Exit_Delete_Record_Click:
    Exit Sub

Err_Delete_Record_Click:
    MsgBox Error$
    Resume Exit_Delete_Record_Click