ผมทำการ Add UserContor ดึงครั้งแรก ok ครับ ข้อมูลขึ้น แต่พอครั้งที่ 2 Error ครับ

  Private Sub AllLode()
        Panel3.Controls.Clear()
        BunifuProgressBar1.Value = 0
        Dim table2 As New DataTable
        Dim command2 As New SqlCommand(" Select * from " & Manu_Office.COIL1 & " ", connection2)
        Dim adapter2 As New SqlDataAdapter(command2)
        adapter2.Fill(table2)

        For k As Integer = 0 To table2.Rows.Count - 1
            Dim DD As New UserDataCoil
            Dim A As Integer = 0
            A += 1
            DD.Name = A
            DD.BackColor = Color.White
            DD.Dock = System.Windows.Forms.DockStyle.Top
            DD.Label2.Text = table2.Rows(k)("SIZE").ToString
            DD.Label3.Text = table2.Rows(k)("SPEC").ToString
            DD.Label5.Text = table2.Rows(k)("KG").ToString
            If Manu_Office.COIL1 = "ST_SHEET" Then
                DD.Label4.Text = "PCS."
            End If
            Me.Panel3.Controls.Add(DD)
            Try
                TO3 = table2.Rows.Count
                BunifuProgressBar1.MaximumValue = TO3
                BunifuProgressBar1.Value += Val(A)

                If BunifuProgressBar1.Value = TO3 Then
                    Panel3.Show()
                Else
                    Panel3.Hide()
                End If
            Catch ex As Exception
            End Try
        Next
    End Sub

 Dim CCS As New Panel
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        CCS.AutoScroll = True
        '   Me.Panel3.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer))
        CCS.Dock = System.Windows.Forms.DockStyle.Fill
        CCS.Location = New System.Drawing.Point(0, 47)
        CCS.Name = "TTS"
        ' CCS.Size = New System.Drawing.Size(1247, 734)
        ''Me.Panel3.TabIndex = 5

        BunifuProgressBar1.Value = 0
        Dim table2 As New DataTable
        Dim command2 As New SqlCommand(" Select * from " & Manu_Office.COIL1 & " ", connection2)
        Dim adapter2 As New SqlDataAdapter(command2)
        adapter2.Fill(table2)

        Me.Controls.Add(CCS)
        For k As Integer = 0 To table2.Rows.Count - 1
            Dim DD As New UserDataCoil

            Dim A As Integer = 0
            A += 1
            DD.Name = A
            DD.BackColor = Color.White
            DD.Dock = System.Windows.Forms.DockStyle.Top
            DD.Label2.Text = table2.Rows(k)("SIZE").ToString
            DD.Label3.Text = table2.Rows(k)("SPEC").ToString
            DD.Label5.Text = table2.Rows(k)("KG").ToString
            If Manu_Office.COIL1 = "ST_SHEET" Then
                DD.Label4.Text = "PCS."
            End If
            CCS.Controls.Add(DD)

            Try
                TO3 = table2.Rows.Count
                BunifuProgressBar1.MaximumValue = TO3
                BunifuProgressBar1.Value += Val(A)

                If BunifuProgressBar1.Value = TO3 Then
                    CCS.Show()
                Else
                    CCS.Hide()
                End If
            Catch ex As Exception
            End Try
        Next
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        CCS.Dispose()

    End Sub