is there any alternative way to create a datatable to gridview in vb.net (since data is not seen in grid)

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        If Not Page.IsPostBack Then
            Generate_Datatable()
            geneate()

           
        End If
     

    End Sub
    Private Sub Generate_Datatable()
        Dim _InvDt As DataTable = New DataTable
        Dim _Dr As DataRow
        _InvDt.Columns.Add("PartNo")
        _InvDt.Columns.Add("PartDesc")
        _InvDt.Columns.Add("UOM")
        _InvDt.Columns.Add("Qty")
        _InvDt.Columns.Add("Price")
        _InvDt.Columns.Add("Amount")
        _Dr = _InvDt.NewRow
        _InvDt.Rows.Add(_Dr)

        GridView1.DataSource = _InvDt
        GridView1.DataBind()

        ViewState("InvDt") = _InvDt
    End Sub
    Private Sub Generate_Row(ByRef InvDt As DataTable)

        Dim _Dr As DataRow
        _Dr = InvDt.NewRow
        InvDt.Rows.Add(_Dr)
        GridView1.DataSource = InvDt
        GridView1.DataBind()
    End Sub
    Private Sub Delete_Row(ByRef pInvDt As DataTable)
        txttotal.Text = ""
        Dim i As Integer = GridView1.Rows.Count
        Dim _Dr As DataRow = pInvDt.Rows.Item(i - 1)
        pInvDt.Rows.Remove(_Dr)
        GridView1.DataSource = pInvDt
        GridView1.DataBind()
        ViewState("InvDt") = pInvDt
    End Sub
    Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnaddrow.Click

        Dim InvDt As DataTable = CType(ViewState("InvDt"), DataTable)
        If GridView1.Rows.Count < 2 Then
            Generate_Row(InvDt)
        End If
    End Sub
    Protected Sub btndelrow_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btndelrow.Click
        txttotal.Text = 0
        Dim _InvDt As DataTable = CType(ViewState("InvDt"), DataTable)
        If GridView1.Rows.Count <= 0 Then
            ScriptManager.RegisterStartupScript(Me, GetType(String), "Message", "alert('No Rows are Exist');", True)
        Else
            Delete_Row(_InvDt)
        End If
    End Sub