Ang slet kommando

Når man anvender denne kode til at slette emner så når man trykker nej ved meddelsesboksen så sletter den alligevel.. HVoad har jeg gjort forkert??

Jeg har jo kun brugt guiden i access til at lave disse knapper.

Private Sub Kommandoknap8_Click()
On Error GoTo Err_Kommandoknap8_Click


    DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
    DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70

Exit_Kommandoknap8_Click:
    Exit Sub

Err_Kommandoknap8_Click:
    MsgBox Err.Description
    Resume Exit_Kommandoknap8_Click
   
End Sub