Visual Basic - Fechas con Sql y VisualBasic

Hola: Tengo una fecha definida como smalldatetime en sql y cuando intento hacer un INSERT, formateo la fecha en una variable string como "2004-06-15" para pasarle la fecha como una constante, pues bien unos dias la fecha la introduce correctamente y otro dias la intenta meter como "2004-15-06" y naturalmente casca porque el mes es > 12
Si podeis ayudarme os lo agradezco

hola mira ese error se debe al formato de fechas que maneja sql aqui lo tienes que hacer es en tu consulta sql tienes que agregar la instruccion set dateformat ymd.

Ejemplo:

Consulta="Set dateformat ymd Insert into Tabla(Fecha) Values ('" & format(Fecha,"yyyy-mm-dd") & "')"

Con esto forzas a guardar con ese formato espero te sirva de algo este consejo.

Muchas gracias, como es un error que se produce cada cierto tiempo, la próxima vez lo probaré