Erro em código para não permitir duplicidade de registros

Bom dia Srs.

Estou com um problema dá seguinte maneira, tenho uma Tabela de Produtos e um campo chamado Cadastro, e não quero que o Usuário cadastre o mesmo produto e cancele ou bloquei a inclusão desse registro e se possível me desse um Msgbox qual o código que está esse registro, cheguei ao seguinte código abaixo:

Código:

On Error GoTo Cadastro

If Not IsNull(DLookup("[CADASTRO]", "Tbl_PRODUTO", "[CADASTRO] ='" & Me!Txt_Cadastro & "'")) Then
   Me.Txt_Cadastro.Undo
   DoCmd.CancelEvent
 
 Else

Cadastro:
MsgBox ("Produto já Cadastrado!"), vbInformation, "CADASTRO"

End If

O que acontece ele dá a mensagem de "Produto já Cadastrado!", porém ele registra mesmo assim o item e não consegui fazer com que mostrasse qual o codigo desse produto já cadastrado.

Obrigado...

Ola Bessa,
Por gentileza, compartilhe aqui seu bd (somente partes envolvidas) para análise e solução.

Att,

Bom noite Sr. Alexandre

Obrigado por tentar me ajudar...
Bom vou tentar explicar bem rápido, trata-se de um formulário de cadastro de produtos, aonde você monta o produto, escolhe a descrição, linha, tecido e cor (sofá) isso concatenado tem um campo com nome Cadastro que apos montado ao clicar no botão salvar o produto é gerado.
Então o que necessito é que o usuário não consiga duplicar esse cadastro que o evento seja cancelado e seja dado uma msgbox (como disse anteriormente se possível informando qual o código que já foi criado para esse produto)
Grato

Ok Bessa,

Vou verificar e depois te retorno.

Abs