Prova questa funzione:

public function formatDateTimeDb(dtmDateValue)
formatDateTimeDb = Year(dtmDateValue) & "/" & Month(dtmDateValue) & "/" & Day(dtmDateValue)
end function
dtmDataCorretta = formatDateTimeDb(date())

in questo modo il formato che viene fuori è 2006/4/11 ovviamente puoi anche invertire i valori se vuoi...