[Resolvido]Deletar registro que está duplicado...

Caros colegas, qual o comando que devo colocar neste meu Private Sub para que o registro que estou lançando seja deletado após o Msgbox?

Private Sub Codconta3_BeforeUpdate(Cancel As Integer)
Dim rs As DAO.Recordset
Set rs = CurrentDb.OpenRecordset("SELECT * FROM [rubrica de contas] WHERE codconta3=" & CodConta3 & " and ano = " & Me.Ano)
If rs.RecordCount > 0 Then
MsgBox "Esta Receita já foi orçada para este ano!" & vbCr & "Apure o que está acontecendo, por favor!",vbCritical, "Atenção"
?????????
Cancel = True
End If
rs.Close
End Sub

Agradeço desde já!
MPS

Bom dia, MPS
maximoaccess.forumeiros.com/search?mode=searchbox&search_keywords=dirty&show_results=topics

Alexandre, valeu!
Tinha que ter o JPaulo no meio! Rs