[Resolvido]Duplicados e Botão Excluir

Boa tarde!
Caros amigos, estou com problema...
Criei um formulário de registros duplicados para excluir os registros duplicados na tabela, ao clicar no botão (lixeira),
Usei inclusive o código de um exemplo do amigo JPaulo. Sendo que não estou conseguindo excluir da tabela o registro selecionado.
Conto com ajuda de vocês, desde já mto. obg.
segue o BD. "senha 123"

No evento Ao clicar do botão Excluir, coloque assim:

On Error GoTo btn_excluir_Click_Err
Dim strInput As String
       
       strInput = InputBox("Deletar o Registro com o Código nº " & Me.Código & vbNewLine & "Cliente: " & Me.txt_nome & vbNewLine & vbNewLine & "SENHA = 123", _
                           "Acesso Restrito")

       If strInput = "" Or strInput = Empty Then
           MsgBox "Não informou a senha - Cancelado...", vbCritical
       Me.txt_nome.SetFocus
           Exit Sub
       End If

       If strInput = "123" Then
     
  'Executando a consulta exclusão
  CurrentDb.Execute "DELETE * FROM BD_cadastro WHERE Código = " & Me.Código & ""
   MsgBox ("Registro excluído com Sucesso..."), vbInformation
   'Atualizando a Listbox
Me.Lista1.RowSource = "SELECT Código, [CPF/MF], Nome, Livro, Folhas, [Data Abertura/Hora] FROM consulta_duplicados ORDER BY Código"

       Else
       
   MsgBox ("Senha inválida..."), vbCritical

           Exit Sub
       End If
                     
btn_excluir_Click_Exit:
   Exit Sub

btn_excluir_Click_Err:
   MsgBox ("Erro!")
   Resume btn_excluir_Click_Exit

Resolvido!!!
Muito obrigado hiperjohn,
Estava quebrando a cabeça com esse código.