ragazzi mi sapete dire dove sta l'errore in questa query:
'StrSql = "INSERT INTO clienti (codcl,nome,cognome,indirizzo,comune,cap,telfisso, telmobile,email,natoil,natoa,provincia,sesso,profe ssione,note,statocivile,hobbies,redditoannuo,altri redditi,casadiprop,altrepropimm,risparmiomensile,i nteressepf,uscita,servizibanca,investimentia,final itainvestimento,ente,agente)"
'StrSql = StrSql & " VALUES('" & codice & "','" & IIf(nomeT.testo <> "", nomeT.testo, "") & "',"
'StrSql = StrSql & "'" & IIf(cognomeT.testo <> "", cognomeT.testo, "") & "',"
'StrSql = StrSql & "'" & IIf(indirizzoT.testo <> "", indirizzoT.testo, "") & "',"
'StrSql = StrSql & "'" & IIf(comuneT.testo <> "", comuneT.testo, "") & "',"
'StrSql = StrSql & "'" & capT.testo & "',"
'StrSql = StrSql & "'" & IIf(telfissoT.testo <> "", telfissoT.testo, "0") & "',"
'StrSql = StrSql & "'" & IIf(cellT.testo <> "", cellT.testo, "0") & "',"
'StrSql = StrSql & "'" & IIf(mailT.testo <> "", mailT.testo, "") & "',"
'StrSql = StrSql & "'" & datanascitaT.Value & "',"
'StrSql = StrSql & "'" & IIf(luogonascitaT.testo <> "", luogonascitaT.testo, "") & "',"
'StrSql = StrSql & "'" & IIf(provinciaT.testo <> "", provinciaT.testo, "") & "',"
'StrSql = StrSql & "'" & IIf(sessoCB.Text <> "", sessoCB.Text, "") & "',"
'StrSql = StrSql & "'" & IIf(ProfessioneCB.Text <> "", ProfessioneCB.Text, "") & "',"
'StrSql = StrSql & "'" & IIf(noteT.testo <> "", noteT.testo, "") & "',"
'StrSql = StrSql & "'" & IIf(StatoCivileCB.Text <> "", StatoCivileCB.Text, "") & "',"
'StrSql = StrSql & "'" & IIf(hobbiesT.testo <> "", hobbiesT.testo, "") & "',"
'StrSql = StrSql & "'" & IIf(redditoannuoT.testo <> "", redditoannuoT.testo, "0") & "',"
'StrSql = StrSql & "'" & IIf(altriredditiT.testo <> "", altriredditiT.testo, "0") & "',"
'StrSql = StrSql & "'" & casadipropCH.Value & "',"
'StrSql = StrSql & "'" & altrepropCH.Value & "',"
'StrSql = StrSql & "'" & IIf(risparimomensileT.testo <> "", risparimomensileT.testo, "0") & "',"
'StrSql = StrSql & "'" & IIf(interesseT.testo <> "", interesseT.testo, "") & "',"
'StrSql = StrSql & "'" & IIf(prevedeoutT.testo <> "", prevedeoutT.testo, "") & "',"
'StrSql = StrSql & "'" & IIf(comevalutaCB.Text <> "", comevalutaCB.Text, "") & "',"
'StrSql = StrSql & "'" & IIf(preferisceCB.Text <> "", preferisceCB.Text, "") & "',"
'StrSql = StrSql & "'" & IIf(finalitaCB.Text <> "", finalitaCB.Text, "") & "',"
'StrSql = StrSql & "'" & IIf(enteconilqualeT.testo <> "", enteconilqualeT.testo, "") & "',"
'StrSql = StrSql & "'" & Base.Agente & "');"