How to create template columns dynamically in a grid view

  <asp:TemplateField HeaderText="User1" ItemStyle-Width="50px">
              <ItemTemplate>
              <table>
                <tr>
                  <td>C</td>
                  <td><asp:Label runat="server" ID="lblExp1" Text='<%# Bind("Paid") %>'>></asp:Label></td>
                </tr>
                <tr>
                  <td>P</td>
                  <td><asp:Label runat="server" ID="lblpaid1" Text='<%# Bind("Consumed") %>'>></asp:Label></td>
                </tr>
              </table>
              </ItemTemplate>
              <EditItemTemplate>
               <table>
                <tr>
                  <td>C</td>
                  <td><asp:TextBox runat="server" ID="tbxExpEdit1" Text='<%# Bind("Paid") %>' Width="40px">></asp:TextBox></td>
                </tr>
                <tr>
                  <td>P</td>
                  <td><asp:TextBox runat="server" ID="TBXpaidEdit1" Text='<%# Bind("Consumed") %>' Width="40px">></asp:TextBox></td>
                 </tr>
                </table>
              </EditItemTemplate>


              <FooterTemplate>

                <table>
                <tr>
                  <td>C</td>
                  <td><asp:TextBox runat="server" ID="tbxAddExp1"  Width="40px"></asp:TextBox></td>
                </tr>
                <tr>
                  <td>P</td>
                  <td><asp:TextBox runat="server" ID="tbxAddPaid1"  Width="40px"></asp:TextBox></td>
                 </tr>
                </table>
              </FooterTemplate>

<ItemStyle Width="50px"></ItemStyle>

             </asp:TemplateField>

Private Sub bind2gridview()
        BuildGridView(ExcelData.rawdata)
        gvRawData.DataSource = ExcelData.rawdata
        gvRawData.DataBind()
    End Sub

Private Sub BuildGridView(ByRef ds As DataSet)

        If IsNothing(ds) Then Exit Sub ' no point in doing anything without some data()
        '  Clear any existing column definitions on the in the gridview
        gvRawData.Columns.Clear()

        ' iterate through the datatable and create a template for each column
        Dim dc As DataColumn

        If ds.Tables.Count > 0 Then
            'Building all the columns in the table.
            For Each dc In ds.Tables(0).Columns
                'dc.Ordinal
                Dim bfield As TemplateField = New TemplateField()
                bfield.HeaderTemplate = New GridViewTemplate(ListItemType.Header, dc.ColumnName)
                bfield.ItemTemplate = New GridViewTemplate(ListItemType.Item, dc.ColumnName)
                bfield.EditItemTemplate = New GridViewTemplate(ListItemType.EditItem, dc.ColumnName)
                gvRawData.Columns.Add(bfield)
            Next
        End If

    End Sub

Private Sub btnInsertHeaders_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnInsertHeaders.Click
        ExcelData.insertRow()
        gvRawData.EditIndex = 0     ' place the newly inserted row into edit mode.
        bind2gridview()
        UpdatCellContent.Update()   ' updates the ajax updatepanel
    End Sub

Public Class GridViewTemplate
    Implements ITemplate
    '
    ' Use to generate dynamic customized gridview cell/header templates
    '
    ' reference: http://www.codeproject.com/script/Articles/ViewDownloads.aspx?aid=13462
    '
    Dim _templateType As ListItemType
    Dim _colName As String

    Public Sub New(ByVal type As ListItemType, ByVal value As String, Optional ByVal attrib(,) As String = Nothing)
        _templateType = type
        _colName = value
    End Sub

    Public Sub InstantiateIn(ByVal container As System.Web.UI.Control) Implements System.Web.UI.ITemplate.InstantiateIn
        ' this creates the gridview templates
        Select Case _templateType
            Case ListItemType.Header
                Dim lbl As Label = New Label()
                lbl.Text = _colName
                container.Controls.Add(lbl)

            Case ListItemType.Item
                Dim lblBtn As Label = New Label()
                AddHandler lblBtn.DataBinding, AddressOf lbl_databinding
                container.Controls.Add(lblBtn)

            Case ListItemType.EditItem
                ' no code here as were are not using the gridview's edit function
                Dim dropdown As DropDownList = New DropDownList
                AddHandler dropdown.DataBinding, AddressOf dropdown_dataBinding
                container.Controls.Add(dropdown)
            Case ListItemType.Footer
                ' no code here as we are not using the footer (at this time)
        End Select
    End Sub

    Private Sub anchr_dataBinding(ByVal sender As Object, ByVal e As EventArgs)
        Dim sprdSht As ExcelObject = New ExcelObject()
        Dim anchrData As HtmlAnchor = CType(sender, HtmlAnchor)
        Dim container As GridViewRow = CType(anchrData.NamingContainer, GridViewRow)
        Dim datavalue As Object = DataBinder.Eval(container.DataItem, _colName)
        Dim rowidx As Int32 = container.RowIndex
        If Not IsDBNull(datavalue) Then anchrData.InnerText =
            datavalue.ToString() + "{" + rowidx.ToString + "," + _colName + "}"
        Dim reg As Regex = New Regex("(\d+)")
        Dim colidx As Int32 = reg.Match(_colName).Groups(1).Value
        Dim celldata As CellObject = sprdSht.cell(colidx, rowidx)
        If celldata.definition.Recognition = stat.RecognizedWord Then anchrData.Attributes.Item("class") = "RecognizedTerm"
        If celldata.definition.Recognition = stat.UndefinedWord Then anchrData.Attributes.Item("class") = "undefinedTerm"
        If celldata.definition.Recognition = stat.numericValue Then anchrData.Attributes.Item("class") = "numericValue"
        If celldata.definition.Recognition = stat.emptyCell Then anchrData.Attributes.Item("class") = "emptyCell"
        If celldata.definition.Recognition = stat.commentCell Then anchrData.Attributes.Item("class") = "commentCell"
        anchrData.Attributes.Item("onClick") = "cellClicked(this, " + celldata.definition.rowDesignation.ToString() + ", " +
            celldata.definition.columnIndex.ToString() + ", '" + celldata.definition.wordGroup + "', '" +
            celldata.definition.definition + "')"
    End Sub

    Private Sub lbl_databinding(ByVal sender As Object, ByVal e As EventArgs)
        Dim sprdSht As ExcelObject = New ExcelObject()
        Dim lblData As Label = CType(sender, Label)
        Dim container As GridViewRow = CType(lblData.NamingContainer, GridViewRow)
        Dim dataValue As Object = DataBinder.Eval(container.DataItem, _colName)
        If Not IsDBNull(dataValue) Then
            lblData.Text = dataValue.ToString()
            lblData.ClientIDMode = ClientIDMode.Static
            Dim rowidx As Int32 = container.RowIndex
            Dim reg As Regex = New Regex("(\d+)")
            Dim colidx As Int32 = reg.Match(_colName).Groups(1).Value - 1
            Dim gridobj As GridView = CType(container.NamingContainer, GridView)
            Dim idx As Int16 = gridobj.PageIndex
            rowidx = rowidx + idx * gridobj.PageSize
            Try
                Dim celldata As CellObject = sprdSht.cell(colidx, rowidx)
                If celldata.definition.Recognition = stat.RecognizedWord Then lblData.CssClass = "RecognizedTerm"
                If celldata.definition.Recognition = stat.UndefinedWord Then lblData.CssClass = "undefinedTerm"
                If celldata.definition.Recognition = stat.numericValue Then lblData.CssClass = "numericValue"
                If celldata.definition.Recognition = stat.emptyCell Then lblData.CssClass = "emptyCell"
                If celldata.definition.Recognition = stat.commentCell Then lblData.CssClass = "commentCell"
            Catch ex As Exception
                rowidx = rowidx
            End Try
            lblData.ID = "cellContent" & rowidx & "_" & colidx
        End If
    End Sub

    Private Sub dropdown_dataBinding(ByVal sender As Object, ByVal e As EventArgs)
        Dim dd As DropDownList = CType(sender, DropDownList)
        dd.DataSource = Dictionary.getKeyHeaderTerms
        dd.DataMember = "headerTerms"
        dd.DataTextField = "term"
        dd.DataBind()
    End Sub

End Class

Public Class CustomGridView

End Class