Validar fecha

Hola
estoy empesando en la programacion y estoy tratando de hacer un programa para llevar un control de revisiones pero en el text que ingreso la fecha ya logre cuadrar para que me acepte el formato dd/mm/aa pero si ingreso un dato como 32/10/10 en la tabla solo me muestraq "   /  /  " como puedo hacer para que cuando ingrase mal la fecha me salga un mensje de erro y que no me guarde en la tabla el codigo que tengo en guardar es el siguiente
use reviciones
go bottom
m.valor=reviciones.cod_inter + 1
close database all
if thisform.text1.value=" "  then
messagebox("digite la placa del vehiculo")
    else
        if thisform.text3.value=" "  then
        messagebox("digite la fecha de revicion del vehiculo")
            else
            use revisiones
            go bottom
            append blank
            replace reviciones.cod_inter with m.valor
            replace placa with thisform.text1.value
            replace propietari with thisform.text2.value
            replace fecha with CTOD(thisform.text3.value)
            replace tecnico with thisform.text4.value
            replace observacio with thisform.text5.value
            close database all                                    
        endif
endif
thisform.text7.value=m.valor
thisform.text1.value=" "
thisform.text2.value=" "
thisform.text3.value=" "
thisform.text4.value=" "
thisform.text5.value=" "
thisform.text1.enabled=.f.
thisform.text2.enabled=.f.
thisform.text3.enabled=.f.
thisform.text4.enabled=.f.
thisform.text5.enabled=.f.
thisform.command2.enabled=.f.