[Resolvido]Correção de dados digitados

Boa tarde Amigos

Uso este código para evitar erros nos formulário.

Private Sub Form_Error(DataErr As Integer, Response As Integer)
Response = acDataErrContinue 'inibe msg padrão do access.
MsgBox "Dados Digitados Estão Incorretos ! ", vbInformation, "Aviso"
Me.Undo
Exit Sub
Response = acDataErrDisplay
Response = acDataErrContinue
Exit Sub
End Sub

Só que o Me.Undo limpa todos os capo do formulário quando acontece um erro num campo

Por exemplo se tenho dois campos formato data e dois campo formato horas, se errar ao digitar o último campo dá a msg de erro e limpa todos os outros campos mesmo que estejam bem.
Pergunto como limpar só o campo mal digitado, e não mexer nos outros ?
Obrigado

Boa noite, Assis
ActiveControl.Undo

Boa noite Alexandre

Sempre a aprender .....

Obrigado