scusate ma proprio non capisco.
Sto provando a personalizzare questa funzione:

Function DataToStr2(Data)
Anno = CStr(Year(Data))
Mese = CStr(Month(Data))
If Len(Mese) = 1 Then
Mese = "0" & Mese
End If
Giorno = CStr(Day(Data))
If Len(Giorno) = 1 Then
Giorno = "0" & Giorno
End If
DataToStr2 = Giorno & "-" & Mese & "-" & Anno
End Function


e se la stampo a video viene fuori così come servirebbe a me cioè gg-mm-aaaa

Se faccio l'insert invece mi esce 07/07/1894
perche?