[Resolvido]tratamento de erro em datas..

Bom dia amigos, olha tenho uma caixa de listagem para data, queria gerar um procedimento on error para que se o cliente digitar a data fora da forma padrão como 21/07/2013 para 221/07/2013 ele me gerasse uma mensagem tipo preenchimento do campo data incorreto. O próprio access me da um mensagem de aviso "o valor que vc inseriu não e valido para este campo"  quero gerar minha própria mensagem. obrigado

Boa tarde


Ao ocorrer erro no form....

Private Sub Form_Error(DataErr As Integer, Response As Integer)
Response = acDataErrContinue 'inibe msg padrão do access.
MsgBox "Data Errada ! ", vbQuestion, "Aviso"
Exit Sub
Response = acDataErrDisplay
Response = acDataErrContinue
Exit Sub
End Sub

Boa tarde amigo Assis, obrigado pela ajuda... Bom Domingo