Finally: It worked
strIN = "INSERT INTO xdatafactorS( MeterID, DATE_, AFApplied, ISDefault, CALCDATETIME, PeriodGrpID) " & _
"VALUES (" & Meterid & ", TO_DATE('" & Format(dateset, "MM/DD/YYYY") & "','MM/DD/YYYY'), 1, 1, TO_DATE('" & Format(Now(), "MM/DD/YYYY HH:MM:SS") &...