Mostrar mensagem informando valor duplicado no bd access

Pessoal bom dia.

Venho através deste fórum mostrar uma dúvida que está me consumindo ha dias.
Bem, eu fiz um aplicativo utilizando o Excel, Access e VBA.

Como faço para quando o usuário clicar no botão "cadastrar" o programa verifique na tabela do access se o campo "CPF", já possui um número igual ja cadastrado na base de dados?



OBs: Caso dê erro no banco de dados, altere o caminho:

Sub Conecta()

'Rotina para fazer a conexão com o Banco de Dados em Access
   Set banco = OpenDatabase("C:\Sislogin\sistema.mdb", False, False, "MS Access;PWD=123")

Segue o link para download:
http://www.4shared.com/zip/zksq95vkce/Sislogin.html

Desde já obrigado pela atenção.

Amigo boa tarde! 

Tente adaptar esse código.

Código:

If DCount("CPF_Cad", "Tab_Principal", "CampodoCPF='" & Me!CPF_Cad & "'") >= 1 Then
MsgBox "CPF já cadastrado no sistema.", vbInformation, "ATENÇÃO!"
Cancel = True
Exit Sub
End If