图表加载时的对象引用错误（Thread）

Question

我在使用线程创建图表时，对象引用未设置为对象实例错误，没有线程运行正常，但我必须使用线程，请帮助

  Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        trd = New Thread(AddressOf ThreadTask)
        trd.IsBackground = True
        trd.Start()

End sub

功能

 Private Sub ThreadTask()
        Dim Data As String() = Functions.runAnalyticsReportSample(100278)
        Functions.CredHolder(Session("User"), Session("Pw"))
        Dim split As String() = {""}

        Dim table As New DataTable()
        Dim colB As DataColumn = table.Columns.Add("A", GetType(String))
        Dim colD As DataColumn = table.Columns.Add("B", GetType(String))

        For Each line In Data

            split = line.Split(","c)

            Dim row As DataRow = table.NewRow()

            row.SetField(colB, split(0))
            row.SetField(colD, split(1))

            table.Rows.Add(row)
        Next

        'Chart1.Series.Add("test")
        Chart1.Series("Series1").XValueMember = "A"
        Chart1.Series("Series1").YValueMembers = "B"

        Chart1.Series("Series1").IsValueShownAsLabel = True
        Chart1.Series("Series1").IsVisibleInLegend = False


        Chart1.DataSource = table
        Chart1.DataBind()


    End Sub