salve ragazzi,

ci sto perdendo la testa...

codice:
  Set myConn = Server.CreateObject("ADODB.Connection")
  strConnDb = ""
  strConnDb = "Provider = Microsoft.Jet.OLEDB.4.0; Data Source = " & server.mappath("/mdb-database/clienti.mdb")
  myConn.Open(strConnDb)
			
  dim strSqlInsertSondaggio 
  strSqlInsertSondaggio = ""
  strSqlInsertSondaggio = "insert into Cliente (Userid,Password,TotaleAccessi,DataAccesso,Livello,CodiceCliente,Piva,Cognome,Nome,Telefono1,Telefono2,fax,Cap,Mail,Indirizzo,Cellulare,Localita,TipoCliente,Ditta,Settore,Provincia,CodiceFiscale,NatoA,NatoIl,Ruolo) values (':1:',':2:',':3:',':4:',':5:',':6:',':7:',':8:',':9:',':10:',':11:',':12:',':13:',':14:',':15:',':16:',':17:',':18:',':19:',':20:',':21:',':22:',':23:',':24:',':25:')"
  strSqlInsertSondaggio = replace(strSqlInsertSondaggio,":1:",replace(cstr(Userid),"'","''",1,-1))
  strSqlInsertSondaggio = replace(strSqlInsertSondaggio,":2:",replace(cstr(Password),"'","''",1,-1))
  strSqlInsertSondaggio = replace(strSqlInsertSondaggio,":3:",replace(cstr(TotAcc),"'","''",1,-1))
  strSqlInsertSondaggio = replace(strSqlInsertSondaggio,":4:",replace(cstr(UltimoAcc),"'","''",1,-1))
  strSqlInsertSondaggio = replace(strSqlInsertSondaggio,":5:",replace(cstr(Livello),"'","''",1,-1))
  strSqlInsertSondaggio = replace(strSqlInsertSondaggio,":6:",replace(cstr(CodiceSegreto),"'","''",1,-1))
  strSqlInsertSondaggio = replace(strSqlInsertSondaggio,":7:",replace(cstr(Piva),"'","''",1,-1))
  strSqlInsertSondaggio = replace(strSqlInsertSondaggio,":8:",replace(cstr(Cognome),"'","''",1,-1))
  strSqlInsertSondaggio = replace(strSqlInsertSondaggio,":9:",replace(cstr(Nome),"'","''",1,-1))
  strSqlInsertSondaggio = replace(strSqlInsertSondaggio,":10:",replace(cstr(Tel1),"'","''",1,-1))
  strSqlInsertSondaggio = replace(strSqlInsertSondaggio,":11:",replace(cstr(Tel2),"'","''",1,-1))
  strSqlInsertSondaggio = replace(strSqlInsertSondaggio,":12:",replace(cstr(Fax),"'","''",1,-1))
  strSqlInsertSondaggio = replace(strSqlInsertSondaggio,":13:",replace(cstr(Cap),"'","''",1,-1))
  strSqlInsertSondaggio = replace(strSqlInsertSondaggio,":14:",replace(cstr(Mail),"'","''",1,-1))
  strSqlInsertSondaggio = replace(strSqlInsertSondaggio,":15:",replace(cstr(Indirizzo),"'","''",1,-1))
  strSqlInsertSondaggio = replace(strSqlInsertSondaggio,":16:",replace(cstr(Cell),"'","''",1,-1))
  strSqlInsertSondaggio = replace(strSqlInsertSondaggio,":17:",replace(cstr(Citta),"'","''",1,-1))
  strSqlInsertSondaggio = replace(strSqlInsertSondaggio,":18:",replace(cstr(TipoC),"'","''",1,-1))
  strSqlInsertSondaggio = replace(strSqlInsertSondaggio,":19:",replace(cstr(Ditta),"'","''",1,-1))
  strSqlInsertSondaggio = replace(strSqlInsertSondaggio,":20:",replace(cstr(Settore),"'","''",1,-1))
  strSqlInsertSondaggio = replace(strSqlInsertSondaggio,":21:",replace(cstr(Prov),"'","''",1,-1))
  strSqlInsertSondaggio = replace(strSqlInsertSondaggio,":22:",replace(cstr(CodiceFiscale),"'","''",1,-1))
  strSqlInsertSondaggio = replace(strSqlInsertSondaggio,":23:",replace(cstr(natoa),"'","''",1,-1))
  strSqlInsertSondaggio = replace(strSqlInsertSondaggio,":24:",replace(cstr(natoil),"'","''",1,-1))
  strSqlInsertSondaggio = replace(strSqlInsertSondaggio,":25:",replace(cstr(pos),"'","''",1,-1))
  
  myConn.Execute(strSqlInsertSondaggio)
  
  myConn.Close
  set myConn = nothing
mi da l'errore

Microsoft JET Database Engine error '80040e14'

Syntax error in INSERT INTO statement.

/ins_cliente.asp, line 91

è la riga 91 è l'execute.. da cosa può dipendere?

grazie