Desculpe, amigo, cometi um pequeno erro mas que causa um grande problema, hehehehe

No evento KeyPress, digite:

 

 

retire a vírgula que está após a função CampoData

 

Valeu?

 

Até mais.

Valeu, Treze, quando eu abri o post para responder, não tinha a sua resposta ainda. Depois que eu respondi eu vi que você também havia respondido, por isso pode parecer que eu estou apenas repetindo o que você postou, mas você sabe que não é assim.

 

Valeu colega.

 

Até mais.

Claro que sei colega não liga, quantas vezes isso já aconteceu comigo.

 

mas tá valendo.

 

até