Aqui os dejo lo que he hecho para cambiar el formato de fecha que me devolvia la funcion date().
En lugar de usar date() he hecho lo siguiente, para adaptarlo al formato de la BD de Sql Server:
Código:
Dia=Day(Date)
Mes=Month(Date)
Anio=Year(Date)
fecha = Anio&"-"& Mes&"-"&Dia