Problemas con Fechas

[Phoncadiz]

Hola foreros.

Necesito hacer un filtro de fechas (del tipo smalldate). No estoy utilizando VALIDATORS. Lo que hago es preguntar con ISDATE

Is Not IsDate (Fecha.Text) then
Error.text = "Fecha erronea"
end if

Esto funciona si metes fechas IMPOSIBLES con caracteres, etc... Pero si instroduces una fecha tal que 1/1/201 (por ejemplo) se la traga. Osea, que dice que es fecha y a la hora de guardarla en la base de datos, convirtiendolo a smalldate, 'casca'.

¿Qué solución podría darle?

Gracias amigos.

[Phoncadiz]

Problema solucionado.
He creado una función muy simple que lo soluciona.

Perdón por las molestias.