db.Execute ("insert into clifat(cod,email,ragsoc) values ('" & codice & "','" & email & "','" & Replace(ragionesociale,"'","''") & "')")