Imports System.Data
Partial Class _Default
    Inherits System.Web.UI.Page

    Dim DynamicDataGrid As DataGrid
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        'Just Drag and drop the Two Textbox and One button controls to Page
    End Sub
    Sub bindDatgrid()
        DynamicDataGrid = New DataGrid
        DynamicDataGrid.Width = 400
        DynamicDataGrid.Height = 100
        DynamicDataGrid.GridLines = GridLines.Both
        DynamicDataGrid.CellPadding = 1
        DynamicDataGrid.ForeColor = System.Drawing.Color.Black
        DynamicDataGrid.BackColor = System.Drawing.Color.Beige
        DynamicDataGrid.AlternatingItemStyle.BackColor = System.Drawing.Color.Gainsboro
        DynamicDataGrid.HeaderStyle.BackColor = System.Drawing.Color.Brown
        form1.Controls.Add(DynamicDataGrid)

        Dim dt As New DataTable
        Dim col1 As New DataColumn
        Dim col2 As New DataColumn
        Dim row1 As DataRow
        'column One
        col1.DataType = Type.GetType("System.String")
        col1.ColumnName = "Name"
        dt.Columns.Add(col1)
        row1 = dt.NewRow
        row1(0) = TextBox1.Text
        dt.Rows.Add(row1)
        'column Two
        col2.DataType = Type.GetType("System.String")
        col2.ColumnName = "Location"
        dt.Columns.Add(col2)
        row1(1) = TextBox2.Text
        DynamicDataGrid.DataSource = dt
        DynamicDataGrid.DataBind()


    End Sub
    Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
        bindDatgrid()
    End Sub
End Class