MyFields=Array As Object(NewID,txtlocale.text,txtuser.Text,txtpassword.Text,txtpiattaforma.Text,txtincasso.Text,txtdata.Text,txtora.Text,txtfido.Text,txtpercentuale.Text,txtcaricati.Text,txtresiduo.Text,txtconsumato.Text,txtquotalocale.Text,txtrimanenza.Text,txtweb.Text,txtesattore.Text,txtnotespesevarie.Text,txtspesevarie.Text,txtspesecarburante.Text,txtaccontoagente.Text,txtaccontolocale.Text,txtnotespeselocale.Text,txtdareagente.Text,txtdarelocale.Text,txtnote.Text,txtpercentualeagente.Text,txtquotaagente.Text,txtquotalocale.Text, txtstoricoincassi.text) 'rest of edittext boxes
qry = "INSERT INTO tabella VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)" 'Account for all fields
SQL1.ExecNonQuery2(qry,MyFields)