sql = "Insert into RigheStampe(IDSchedaSposi,descrizione,Qt,prezzo,dataritiro,ritirato,noteritiro,idtipoStampa,idmodellostampa,idCartaEsterna,idCartaInterna,idchiusura1,idchiusura2,bigliettonomi,idceralacca,idcarattere,idcolorecarattere,timbro,annotazioni) values (" _
            & "" & CInt(txtIdSchedaSposi.Text) & ", " _
            & "'" & .txtDescrizione.Text.Replace("'", "''") & "', " _
            & "'" & txtQtstampe.Text.Replace("'", "''") & "', " _
            & "'" & TxtPrezzoStampe.Text.Replace("'", "''") & "', " _
            & "'" & txtdataritiroStampe.Text.Replace("'", "''") & "', " _
            & "'" & Color.White.Name & "', " _
            & "'" & txtnoteritirostampe.Text.Replace("'", "''") & "', " _
             & "'" & DbDati.ControllaIndex(.lswtipostampa, 0, "'", "''") & "', " _
             & "'" & DbDati.ControllaIndex(.lswmodellistampa, 0, "'", "''") & "', " _
            & "'" & DbDati.ControllaIndex(.lswcartainterna, 0, "'", "''") & "', " _
            & "'" & DbDati.ControllaIndex(.lswcartainterna, 0, "'", "''") & "', " _
            & "'" & DbDati.ControllaIndex(.lswchiusura1, 0, "'", "''") & "', " _
            & "'" & DbDati.ControllaIndex(.lswchiusura2, 0, "'", "''") & "', " _
            & "'" & .chkBigliettonomi.Checked & "', " _
            & "'" & DbDati.ControllaIndex(.lswceralacca, 0, "'", "''") & "', " _
            & "'" & DbDati.ControllaIndex(.lswcarattere, 0, "'", "''") & "', " _
            & "'" & DbDati.ControllaIndex(.lswColoreCarattere, 0, "'", "''") & "', " _
            & "'" & .TxtTimbro.Text.Replace("'", "''") & "', " _
            & "'" & .TxtAnnotazione.Text.Replace("'", "''") & "')"