Dim conString = ConfigurationManager.ConnectionStrings("liceoConnectionString")
            Dim strConnString As String = conString.ConnectionString
            Using scope As New TransactionScope()
                Using db As New SqlConnection(strConnString)
                    db.Open()
                    Using sqlcmd As New SqlCommand("Get_Allcommenti", db)
                        sqlcmd.CommandType = CommandType.StoredProcedure
                        sqlcmd.Parameters.AddWithValue("@idnotizia", SqlDbType.Int).Value = idnotizia
                        Using sqldr As SqlDataReader = sqlcmd.ExecuteReader
                            While sqldr.Read
                                Label1.Text = sqldr.GetSqlString(4).Value
                                Label2.Text = sqldr.GetSqlDateTime(1).Value.ToShortDateString
                                TextBox1.Text = sqldr.GetSqlString(2).Value
                            End While
                        End Using
                    End Using
                End Using
                scope.Complete()
            End Using