VB.Net ถามเรื่่องกำหนดค่า Text ลง Textboox ครับ มีปัญหา AddTabPage แล้วกำหนวดค่าไม่

    Public Sub addTabpage(ByVal nameTab, ByVal txtPage)
        If nameTab.Controls.Count > 0 Then nameTab.Controls.RemoveAt(0)
        Dim tmpTab As TabPage = New TabPage()
        tmpTab.Text = txtPage
        'Dim frm As New LabelEditContentControl()
        Dim frm As New frmCustomerManage()
        frm.TopLevel = False

        tmpTab.Controls.Add(frm) 
        frm.Show()
        nameTab.TabPages.Add(tmpTab) 
    End Sub

    Public Sub showSearchCusto(ByVal custoID As String)
        Dim strSql As String = "select * from Customer where customerid = '" & custoID & "' "
        dr = clsDB.QueryDataReader(strSql)
        dr.Read()
        frmCustomerManage.txtCustoName.Text = dr.Item("CustomerName")
        frmCustomerManage.txtCustoPhon.Text = dr.Item("Address")
        frmCustomerManage.txtCustoAddress.Text = dr.Item("PhoneNumber")
    End Sub