codice:
function formatta_sql(mia_stringa)
	formatta_sql=replace(mia_stringa,"'","''",1,-1)
End function

	dim strInsertDati2
	strInsertDati2=""
	strInsertDati2="update tabella set Numeroclic=:1:, lastdata=:2: where id=" & Numid
	strInsertDati2=replace(strInsertDati2,":1:",formatta_sql(cint(Totale)))					
	strInsertDati2=replace(strInsertDati2,":2:",replace(Oggi))					
	myConn.Execute (strInsertDati2)
End If
ebbene il problema è nell'update della variabile oggi

dove oggi = date()
il campo del db, lastdata è di tipo data/ora


il risultato è 0.06.06

che ho fatto di male alle date per farmi venire fuori sta porcheria...?