'apre la connessione
        Connetti()

       'Query parametrizzata

            For cnt = 1 To 500
                comm = New OleDbCommand("UPDATE Tag SET " & _
                                        "nPagina=@nPagina," & _
                                        "Visibile=@Visibile," & _
                                        "TipoDato=@TipoDato," & _
                                        "Titolo=@Titolo," & _
                                        "X=@X," & _
                                        "Y=@Y," & _
                                        "Larghezza=@Larghezza," & _
                                        "Altezza=@Altezza," & _
                                        "Trasparente=@Trasparente," & _
                                        "Bordo=@Bordo," & _
                                        "NomeFont=@NomeFont," & _
                                        "StileFont=@StileFont," & _
                                        "DimensioneFont=@DimensioneFont," & _
                                        "Allineamento=@Allineamento " & _
                                        "WHERE nTAG=@nTAG AND " & condizioneQUERY & ";", conn)

                comm.Parameters.Add("@nPagina", OleDb.OleDbType.VarChar).Value = frmTAG.txtNPagina.Text
                comm.Parameters.Add("@Visibile", OleDb.OleDbType.Boolean).Value = frmTAG.Visibile(cnt)
                comm.Parameters.Add("@TipoDato", OleDb.OleDbType.VarChar).Value = frmTAG.TipoDato(cnt)
                comm.Parameters.Add("@Titolo", OleDb.OleDbType.VarChar).Value = frmTAG.Titolo(cnt)
                comm.Parameters.Add("@X", OleDb.OleDbType.VarChar).Value = frmTAG.X(cnt)
                comm.Parameters.Add("@Y", OleDb.OleDbType.VarChar).Value = frmTAG.Y(cnt)
                comm.Parameters.Add("@Larghezza", OleDb.OleDbType.VarChar).Value = frmTAG.Larghezza(cnt)
                comm.Parameters.Add("@Altezza", OleDb.OleDbType.VarChar).Value = frmTAG.Altezza(cnt)
                comm.Parameters.Add("@Trasparente", OleDb.OleDbType.Boolean).Value = frmTAG.Trasparente(cnt)
                comm.Parameters.Add("@Bordo", OleDb.OleDbType.Boolean).Value = frmTAG.Bordo(cnt)
                comm.Parameters.Add("@NomeFont", OleDb.OleDbType.VarChar).Value = frmTAG.NomeFont(cnt)
                comm.Parameters.Add("@StileFont", OleDb.OleDbType.VarChar).Value = frmTAG.StileFont(cnt)
                comm.Parameters.Add("@DimensioneFont", OleDb.OleDbType.VarChar).Value = frmTAG.DimensioneFont(cnt)
                comm.Parameters.Add("@Allineamento", OleDb.OleDbType.VarChar).Value = frmTAG.Allineamento(cnt)
                comm.Parameters.Add("@nTAG", OleDb.OleDbType.VarChar).Value = cnt

                comm.ExecuteNonQuery()
            Next
        End If

        'chiude la connessione al database
        Disconnetti()