IMPEDIR REGISTRO DUPLICADO NO BANCO DE DADOS

[Gleydson.Guimaraes]

Bom dia

alguem por gentileza pode me ajudar?
Estou precisando criar um criterio em que ao realizar um cadastro num sistema que estou fazendo, ele impeça de cadastrar um registro com o mesmo CPF.

Segue o codigo do botao salvar:

Private Sub btnGravar_Click()
If Me.TxtNome.Text = "" Or Me.TxtCPF.Text = "" Then
MsgBox "Nome Completo e CPF são obrigarórios!", vbInformation, "Secretaria IEADAB"
Me.TxtNome.SetFocus

Else

With Conectar
.Salvar ("tb_cadastro")

.rs!Id = txtID.Text
.rs!Nome = TxtNome.Text
.rs!Sexo = CmbSexo.Value
.rs!Membro = cmbMembro.Value
.rs!Igreja = TxtIgreja.Value
.rs!Pai = TxtPai.Text
.rs!Mae = TxtMae.Text
.rs!Data_Nascimento = TxtNascimento.Text
.rs!Naturalidade = TxtNatural.Text
.rs!D_Estado = CmbDEstado.Value
.rs!Nacionalidade = TxtNacional.Text
.rs!RG = TxtRG.Text
.rs!CPF = TxtCPF.Text
.rs!Email = TxtEmail.Text
.rs!Estado_Civil = CmbEstCivil.Value
.rs!Data_Casamento = TxtCasamento.Text
.rs!Viuvo_Divorciado = TxtViuvo.Text
.rs!Conjuge = TxtConjuge.Text
.rs!Filhos = CmbFilhos.Value
.rs!Quant_Filhos = TxtQFilhos.Text
.rs!Endereco = TxtEndereco.Text
.rs!numero = TxtNumero.Text
.rs!Bairro = TxtBairro.Text
.rs!Cidade = TxtCidade.Text
.rs!E_Estado = CmbEEstado.Value
.rs!CEP = TxtCEP.Text
.rs!telefone = TxtTelefone.Text
.rs!Escolaridade = CmbEscola.Value
.rs!Profissao = TxtProfissao.Text
.rs!Empregado = cmbEmpregado.Value
.rs!Emprego = TxtEmprego.Text
.rs!Dizimista = CmbDiz.Value
.rs!Data_Conversao = TxtConversao.Text
.rs!Data_BatAgua = TxtBatAgua.Text
.rs!Data_BatEsp = TxtBatEsp.Text
.rs!Data_Membro = TxtMembro.Text
.rs!Origem = CmbOrig.Value
.rs!Data_Origem = TxtOrigem.Text
.rs!Cargo = TxtCargo.Text
.rs!ativo = cmbSituacao.Value
.rs!Observacao = TxtObs.Text
.rs!Imagem = TxtCaminhoFoto.Text
.rs!Data_hoje = DataHoje.Text

.rs.Update
.rs.Requery

Call Limpar

MsgBox "Registro salvo com sucesso!", vbInformation, "Secretaria IEADAB"

Call UserForm_Initialize

End With
End If
End Sub