Hai ragione, non la formattavo per niente.
Ho trovato la funzione di un file include per altre date del sito ma neanche va, riporto i passaggi:
' qui leggo dal file excel
strData = objRS("Data")
'qui la formatterei con la funzione StrToData
strData2 = StrToData(strData)
'e poi inserisco
strSQLInsert = strSQLInsert & ""& strData2 &","
provo a stampare a video e vediamo...