كيف أقوم بانشاء TextBox تلقائيا وقت التشغيل How to create dynamically

ا السلام عليكم

السلام عليكم

أخواني قمت بعرض كافة الاعمدة لجدول في قاعدة البيانات الى داخل اداة

CheckBoxList1

المطلوب :-

أريد إنشاء كنترول Textbox مقابل كل عمود تم تحديدة داخل القائمة وتسميتة بإسم العمود لاستخدام قيمة Textbox لاحقاً

البرنامج مرفق في المرفقات

Imports System.Data
Imports System.Data.OleDb
Imports System.Data.SqlClient
Partial Class _Default
    Inherits System.Web.UI.Page
    Dim ds As New DataSet
    Dim str1() As String
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Try
            'عرض كافة حقول الجدول داخل القائمة 
            getAllColumnNames("Table1")
        Catch ex As Exception
            MsgBox(ex.Message)
        Finally
        End Try
    End Sub
    Private Function getAllColumnNames(ByVal tblname As String) As String()
        Dim com As New OleDbCommand
        Dim con As OleDbConnection
        Dim dtable1 As DataTable
        Dim i As Integer

        Dim ConnectionString As String = "Provider=Microsoft.Jet.oledb.4.0;Data Source=" & Server.MapPath("App_Data\db1.mdb")
        con = New OleDb.OleDbConnection(ConnectionString)
        con.Open()
        com.Connection = con

        dtable1 = con.GetOleDbSchemaTable(OleDb.OleDbSchemaGuid.Columns, New Object() {Nothing, Nothing, tblname, Nothing})

        For i = 0 To dtable1.Rows.Count - 1
            ReDim Preserve str1(i)
            str1(i) = dtable1.Rows(i).Item(3).ToString
        Next i

        CheckBoxList1.DataSource = str1
        CheckBoxList1.DataBind()
        Return str1
    End Function
End Class

]

ArrayControls.rar