สร้าง Datatable มารับข้อมูลโดยที่ไม่บันทึกลง database แต่ไม่แสดงผล

<asp:GridView ID="gridOrder" runat="server"
                           Width="1100px"
                           HeaderStyle-Font-Bold="true" Style="text-align: center" 
        CellPadding="4" ForeColor="#333333" GridLines="None" ShowFooter="True">
                           <AlternatingRowStyle BackColor="White" />
                          
                           <FooterStyle BackColor="#FF9933" Font-Bold="True" ForeColor="#363422" />
                           <HeaderStyle Font-Bold="True" BackColor="#FF9933" ForeColor="#363422"></HeaderStyle>
                           <PagerStyle BackColor="#FF9933" ForeColor="#363422" HorizontalAlign="Center"  />
                           <RowStyle BackColor="#FFFFCC" />
                           <SelectedRowStyle BackColor="#FF9933" Font-Bold="True" ForeColor="#333333" />
                           <SortedAscendingCellStyle BackColor="#fff" />
                           <SortedAscendingHeaderStyle BackColor="#fff" />
                           <SortedDescendingCellStyle BackColor="#fff" />
                           <SortedDescendingHeaderStyle BackColor="#fff" />

                       </asp:GridView>

Protected Sub btnadd_Click(sender As Object, e As ImageClickEventArgs) Handles btnadd.Click
        Dim dt As DataTable
        Dim ds As New DataSet
        Dim dr As DataRow

        dt = New DataTable()
        dt.Columns.Add(New DataColumn("NO.", GetType(Integer)))
        dt.Columns(0).AutoIncrement = True
        dt.Columns(0).AutoIncrementSeed = 1

        dt.Columns.Add(New DataColumn("ชื่ออาหาร", GetType(String)))
        dt.Columns.Add(New DataColumn("ร้านอาหาร", GetType(String)))
        dt.Columns.Add(New DataColumn("เพิ่มเติม", GetType(String)))
        dt.Columns.Add(New DataColumn("จำนวน", GetType(Integer)))
        dt.Columns.Add(New DataColumn("ราคา", GetType(Integer)))
        dt.Columns.Add(New DataColumn("จำนวนรวม", GetType(Integer)))

        dr = dt.NewRow()
        dr("ชื่ออาหาร") = ddlmenu.SelectedItem.Text
        dr("ร้านอาหาร") = ddlstore2.SelectedItem.Text
        dr("เพิ่มเติม") = cboxOption.SelectedItem.Text
        dr("จำนวน") = txtquantity.Text
        dr("ราคา") = txtunitPrice.Text
        dr("จำนวนรวม") = (txtquantity.Text) * (txtunitPrice.Text)

        dt.Rows.Add(dr)

        ds.Tables.Add(dt)
        gridOrder.DataSource = dt
        gridOrder.DataBind()

    End Sub