salve a tutti,

io ho questo codice che mi da errore ma non riesco a trovare l'errore

codice:
    'Aggiorno il db
	function formatta_sql(mia_stringa)
		formatta_sql=replace(mia_stringa,"'","''",1,-1)
	end function
	
	'Apro il db e recupero l'ultimo valore
	set myConn = server.CreateObject("ADODB.Connection")
	dim strConnDb
	strConnDb = ""
	strConnDb = "Provider = Microsoft.Jet.OLEDB.4.0; Data Source = " & server.mappath("/mdb-database/Clienti.mdb")
	myConn.Open(strConnDb)
	mySqlSelect = "select TotaleAccessi, DataAccesso from Cliente where CodiceCliente='" & Session("CodceC")
	set myRSComS = server.CreateObject("ADODB.Recordset")
	myRSComS.Open mySqlSelect, myConn
	
	TotaleAcc = cint(Session("TotAcc")+1)
	DataAcc = date()
	
	'Aggiorno il valore dentro al db
	dim strInsertDati
	strInsertDati=""
	strInsertDati="update Cliente set TotaleAccessi=':1:', DataAccesso=':2:' where CodceiCliente=" & CC
	
	strInsertDati=replace(strInsertDati,":1:",formatta_sql(cstr(TotaleAcc)))
	strInsertDati=replace(strInsertDati,":1:",formatta_sql(cstr(DataAcc)))
	
	myConn.Execute strInsertDati
	
	myConn.Close
	set myConn=nothing
mi da errore nella select... ma non capisco perchè...


Microsoft JET Database Engine error '80040e14'

Syntax error in string in query expression 'CodiceCliente=''.

/accessoclienti.asp, line 54