[Resolvido]limpar campo após erro

Caros
Tenho o seguinte código no final da validação do CPF

----

If DVCPF = strDigVer Then
MsgBox "CPF válido"
Else
MsgBox "-----CPF inválido-----", vbCritical
DoCmd.CancelEvent
End If
End Function

----
Gostaria de, ao detectar o CPF como inválido, voltasse para o campo CPF e limpasse o mesmo...
Já tentei com
Me.[CPF] = ""

Com
CPF.Value=Null

Não encontrei uma solução.

Olá Avelino...
O código que me passou funciona, mas aí cancela o formulário todo.
Minha situação é a seguinte:
Tenho os campos mais ou menos assim:
- Id
- Contratante
- DataNasc
- Endereco
- ...
- ...
- CPF  (aqui valida o cpf)
- RG
- ...
- ...
- RespContratante
- RespCPF (aqui também valida o cpf)
- RespEndereco

Então, se uso a função que passou, cancela tudo o que já foi preenchido. Eu preciso só que volte ao campo CPF e limpe o CPF que está errado, mas permaneça no mesmo formulário já preenchido com diversos outros dados.
Hoje tenho isso, mas só avisa que há erro e segue normalmente para o próximo campo.

If DVCPF = strDigVer Then
MsgBox "CPF válido"
Else
MsgBox "-----CPF inválido-----", vbCritical
DoCmd.CancelEvent
End If
End Function (aqui acaba a função de verificação do CPF)

Se me permitem...

If DVCPF = strDigVer Then
MsgBox "CPF válido"
Else
MsgBox "-----CPF inválido-----", vbCritical
DoCmd.CancelEvent
me.dvcpf.setfocus
me.dvcfp = ""
End If
End Function

Caro Silvio.
se o nome do campo é CPF
eu não deveria usar?

me.cpf.setfocus
me.cfp = ""

mas aí não deu certo quanto coloquei ontem.

Depende do nome que está na folha de propriedades aba outros, campo nome..... do referido campo, pode ser que esteja com outro nome lá.

boa tarde, Avelino / Silvio
Tentei as opções sugeridas.... e nada feito.
Parece algo simples... e não entendo porque da erro na função Me.
Hoje à noite vou postar o parte do banco (a tabela e o formulário) para ver se conseguimos chegar a uma solução.
Grato

Este código funciona certim pasta colocar o código do mestre avelino no modulo que calcula o CPF ou CNPJ no final do código

CreateObject("Wscript.shell").SendKeys "{f2}"
CreateObject("Wscript.shell").SendKeys "{DELETE}"

If DVCPF = strDigVer Then
MsgBox "CPF válido!", vbInformation, "Sistema Vendas."
Else
MsgBox "CPF inválido", vbCritical, "Sistema Vendas."
DoCmd.CancelEvent
CreateObject("Wscript.shell").SendKeys "{f2}"
CreateObject("Wscript.shell").SendKeys "{DELETE}"
End If

End Function





If DVCGC = strDigVer Then
MsgBox "CNPJ Válido", vbInformation, "Sistema Vendas."
Else
MsgBox "CNPJ inválido", vbCritical, "Sistema Vendas."
DoCmd.CancelEvent
CreateObject("Wscript.shell").SendKeys "{f2}"
CreateObject("Wscript.shell").SendKeys "{DELETE}"
End If
End Function

Obrigado a todos que me ajudaram.
Não estou usando o validador de CPF/CNPJ do Avelino, mas consegui adaptar ao código que estou usando.

Obrigado xará.

Resolvido.