[Resolvido]Codigo VBA do botão de comando EXCLUIR

Caríssimos Colegas,

Boa noite,

Estou precisando saber qual é o código VBA do botão excluir, pois preciso colocar uma senha para que o usuário digite antes de ocorrer a exclusão do arquivo.
Tentei ver se conseguir iria converter macro em Visual Basic, sem sucesso.

Seria um código mais ou menos assim, porém está apresentando erro:

Private Sub Excluir_Click()
Dim strResposta As String
strResposta = InputBox("Entre com a senha...", "Senha", "", 2000, 1000)
If StrComp(strResposta, "OK", vbBinaryCompare) = 0 Then
Dim I As Integer
I = MsgBox("Tem a certeza que quer apagar?", vbYesNo, "Confirmação")
If I = vbNo Then
Exit Sub
Else
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
End If
Else
MsgBox "Senha incorreta...", vbCritical
DoCmd.CancelEvent
End If
End sub

OBS:
Ao cancelar exclusão apresenta erro, veja arquivo em anexo.

Olá, veja esse exemplo do colega João Paulo, tente adaptá-lo a sua necessidade, pois ele é bem simples.

http://maximoaccess.forumeiros.com/t8210-excluir-registro-so-informando-a-senha

Caro Colega,

Muito obrigado!

Fiz as adaptações e funcionou perfeitamente.

Abraços.