ต้องการเพิ่มข้อมูลลงใน DataGridView ต้องทำอย่างไรครับโดยใช้ VB.NET

-------------------------------------------------------------------------------------------------------
 'ส่วนที่ผมขีดยาวหมดนี่ ตรงนี้ครับปัญหาต้องไปประกาศนอกฟังชัน
dim tbl as datatable
dim r as datarow
 
 tbl = New DataTable 'ที่มันมีแค่ rows เดวถูกแล้วเพราะคุณสั่ง new datatable ทุกครั้งอันเก่าก็หายสิครับ T_T
------------------------------------------------------------------------------------------------------
'ไปประกาศเป็น 
dim tbl as new datatable
dim r as datarow
 -------------------------------------------------------------------------------------------------------
'ส่วนที่ผมขีดยาวหมดนี่ เอาไปไว้ตรง form_load ครับ ให้มันสร้างครั้งเดวพอ
        tbl.Columns.Add(New DataColumn("proid", GetType(System.Double)))
        tbl.Columns.Add(New DataColumn("pronames", GetType(System.String)))
        tbl.Columns.Add(New DataColumn("prounit", GetType(System.String)))
        tbl.Columns.Add(New DataColumn("pronumber", GetType(System.Double)))
        tbl.Columns.Add(New DataColumn("proprice", GetType(System.Double)))
        tbl.Columns.Add(New DataColumn("amount", GetType(System.String)))
 
 -----------------------------------------------------------------------------------------------------------
        dgvsalelist.DataSource = tbl
 
        Select Case chkdata
            Case 1
 
 
 
                With dgvsalelist
 
 
                    .Columns(0).HeaderText = "รหัสสินค้า"
                    .Columns(1).HeaderText = "ชื่อสินค้า"
                    .Columns(2).HeaderText = "หน่วยสินค้า"
                    .Columns(3).HeaderText = "จำนวนสินค้า"
                    .Columns(4).HeaderText = "ราคาขาย"
                    .Columns(5).HeaderText = "ราคารวม"
 
                    .Columns(0).Width = 90
                    .Columns(1).Width = 150
                    .Columns(2).Width = 100
                    .Columns(3).Width = 100
                    .Columns(4).Width = 100
                    .Columns(5).Width = 100
 
                    r = tbl.NewRow
                    tbl.Rows.Add(r)
                End With
            Case 2
 
 
                With dgvsalelist
 
                    r = tbl.NewRow
                    r("proid") = txtserch.Text.Trim
                    r("pronames") = txtname.Text.Trim
                    r("prounit") = txtnumber.Text.Trim
                    r("pronumber") = txtprice.Text.Trim
                    r("proprice") = txtunit.Text.Trim
                    r("amount") = txtsum.Text.Trim
                    tbl.Rows.Add(r)
                    tbl.NewRow()
 
                End With

----------------------------------------------------
ส่วนนี้เป็นการประกาศตัวแปรแบบ Public
    Dim tbl As DataTable 
    Dim chkdatagrid As Boolean
----------------------------------------------------
Private Sub Frm_Load()
         Headergrid() 
        AddDataToDatagrid(1) 
End Sub

Private Sub AddDataToDatagrid(ByVal chkdata)

        Dim r As DataRow

        Select Case chkdata
            Case 1
                
                chkdatagrid = True
                r = tbl.NewRow 
                tbl.Rows.Add(r) 

            Case 2


                With dgvsalelist

                    If chkdatagrid = True Then
                        tbl.Clear()
                    End If

                    r = tbl.NewRow
                    r("proid") = txtserch.Text.Trim
                    r("pronames") = txtname.Text.Trim
                    r("prounit") = txtnumber.Text.Trim
                    r("pronumber") = txtprice.Text.Trim
                    r("proprice") = txtunit.Text.Trim
                    r("amount") = txtsum.Text.Trim

                    tbl.Rows.Add(r)
                    chkdatagrid = False


                End With

        End Select
End Sub

Private Sub Headergrid() 


        tbl = New DataTable 


        tbl.Columns.Add(New DataColumn("proid", GetType(System.Double)))
        tbl.Columns.Add(New DataColumn("pronames", GetType(System.String)))
        tbl.Columns.Add(New DataColumn("prounit", GetType(System.String)))
        tbl.Columns.Add(New DataColumn("pronumber", GetType(System.Double)))
        tbl.Columns.Add(New DataColumn("proprice", GetType(System.Double)))
        tbl.Columns.Add(New DataColumn("amount", GetType(System.String)))

        dgvsalelist.DataSource = tbl 

        With dgvsalelist 'เป็นการ set หัวของ datagrid
            .Columns(0).HeaderText = "รหัสสินค้า"
            .Columns(1).HeaderText = "ชื่อสินค้า"
            .Columns(2).HeaderText = "หน่วยสินค้า"
            .Columns(3).HeaderText = "จำนวนสินค้า"
            .Columns(4).HeaderText = "ราคาขาย"
            .Columns(5).HeaderText = "ราคารวม"

            .Columns(0).Width = 90
            .Columns(1).Width = 150
            .Columns(2).Width = 100
            .Columns(3).Width = 100
            .Columns(4).Width = 100
            .Columns(5).Width = 100
        End With