Importazione dati da foglio excel a db acces

[Partisan75]

Ho visto in una vecchia pagina del sito dove si fa l'inserimento nella stessa tabella che la data viene inserita così:

" & DataToStr(Now()) & "

ovviamente io devo sostituire il Now con altra data.

Questa la funzione DataToStr:

Function DataToStr(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
DataToStr = Anno & Mese & Giorno
End Function

[Partisan75]

Allora vorrei provare ad inserire direttamente la data di oggi con DataToStr(Now()) e tralasciare l'importazione dal foglio excel.

Mi preparo la variabile con: strData = DataToStr(Now())

Poi se stamppo a video con: Response.write strData &"<br><br>"

Mi da questo formato: 20170117

Ma se invece della stampa provo ad inserire nel DB mi da errore:

Microsoft JET Database Engine error '80040e57'
Overflow


Credo che questa sia la strada piu semplice ma non riesco neanche ad inserire la data di oggi...

[Partisan75]

ed ancora...
se stampo a video strData = (Date) mi da 17/01/2017

mentre se inseirsco nel db la stessa cosa mi trovo 00:12:08

perche?

[Vincent.Zeno]

access riceve la data in questa forma:
campoData=(#"&date()&"#)

sempre che si parli di un campo data generica

[cavicchiandrea]

Prova a passagli la data di Excel nel formato esteso #anno/mese/giorno ora:minuti:secondi# dopo di che abbandono le date sono la cosa più rognossa

[Partisan75]

Prova a passagli la data di Excel nel formato esteso #anno/mese/giorno ora:minuti:secondi# dopo di che abbandono le date sono la cosa pi� rognossa

scusate ma ieri non mi faceva piu rispondere.
Ho risolto cos':

strData2 = "#"& strData &"#"

Grazie mille per il vostro aiuto