cm.CommandText = "Update paolo set paolo ='" & tbTesto.Text & "' where id = " & tbID.Text
        Dim lngRecAffect As Long = cm.ExecuteNonQuery()

        If (lngRecAffect = 0) Then
            tr.Rollback() 'Se l'ultimo update non effettua la conferma dei dati
            MsgBox("KO")
        Else
            tr.Commit() 'Altrimenti rende effettive tutte le query
            MsgBox("OK")
        End If
        
        Try
            sqlcon.Close()
        Catch ex As Exception
            MsgBox(ex.Message)
            Exit Sub
        End Try