Originariamente inviato da optime
hai tolto il cdate?
Si ho tolto cdate e poi modificando il codice e la query così, ha funzionato, grazie:

codice:
Data_assegnazione = Rs("Data_assegnazione")


If IsNull(DATA_ASSEGNAZIONE) or IsEmpty(DATA_ASSEGNAZIONE) or DATA_ASSEGNAZIONE = "" then
   DATA_ASSEGNAZIONE = ("1900/01/01")
Else
   DATA_ASSEGNAZIONE = DATA_ASSEGNAZIONE
End If


strSQL = "INSERT INTO Tab (data_assegnazione) VALUES ( #" & convertDate(data_assegnazione) & "#)"