try puttng the following code in the valid event of the control

DO CASE

CASE (CTOD(THIS.VALUE) > DATE())
MESSAGEBOX("Error in Date: Greater than current date.",16)
return 0


CASE(CTOD(THIS.VALUE) < DATE()-60)
MESSAGEBOX("Error in Date: More than 60 days before today.")
return 0

ENDCASE