ต้องการดึงข้อมูลจาก database มาแสดงในใน Datagrid view vb.net ค่ะ หลังจากดึงมาแสดงแล้ว สามารถกดปุ่ม add เพิ่มข้อมูลใน datagrid view ได้ด้วยจะเขียนยังไงคะ

Sub Headergrid()
        'Dim strselect As String = "select s.s_pro as key,f.fgname as named,s.s_qty as qtys ,s.s_unit as units,s.s_cost as costs,s.s_disc as disc,s.s_amt as amt,s.s_range ans  from PTsalediy s left join PTfg f on  s.s_pro = f.fgpro where s.s_saleid = '" & txtsaleid.Text & "' "
        'connection()
        ''dsdgrid.Clear()
        ''With da
        ''    .SelectCommand = New SqlCommand(strselect, conn)
        ''    .Fill(dsdgrid, "PTsalediy")
        ''End With

        tbl = New DataTable


        tbl.Columns.Add(New DataColumn("key", GetType(System.String)))
        tbl.Columns.Add(New DataColumn("named", GetType(System.String)))
        tbl.Columns.Add(New DataColumn("qtys", GetType(System.Double)))
        tbl.Columns.Add(New DataColumn("costs", GetType(System.Double)))
        tbl.Columns.Add(New DataColumn("units", GetType(System.String)))
        tbl.Columns.Add(New DataColumn("disc", GetType(System.Double)))
        tbl.Columns.Add(New DataColumn("amt", GetType(System.String)))
        tbl.Columns.Add(New DataColumn("srang", GetType(System.String)))
        DataGridView1.DataSource = tbl

        With DataGridView1 'หัวของ datagrid
            .Columns(0).HeaderText = "รหัสสินค้า"
            .Columns(1).HeaderText = "ชื่อสินค้า"
            .Columns(2).HeaderText = "จำนวน"
            .Columns(3).HeaderText = "ราคา"
            .Columns(4).HeaderText = "หน่วย"
            .Columns(5).HeaderText = "ส่วนลด"
            .Columns(6).HeaderText = "รวมเงิน"
            .Columns(7).HeaderText = "Rang"


            .Columns(0).Width = 105
            .Columns(1).Width = 520
            .Columns(2).Width = 100
            .Columns(3).Width = 100
            .Columns(4).Width = 65
            .Columns(5).Width = 100
            .Columns(6).Width = 100
            .Columns(7).Width = 100

            DataGridView1.ColumnHeadersDefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
            DataGridView1.Columns(0).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleLeft
            DataGridView1.Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleLeft
            DataGridView1.Columns(2).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
            DataGridView1.Columns(3).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
            DataGridView1.Columns(4).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
            DataGridView1.Columns(5).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
            DataGridView1.Columns(6).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
            DataGridView1.Columns(7).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter


            .Columns(0).SortMode = DataGridViewColumnSortMode.NotSortable
            .Columns(1).SortMode = DataGridViewColumnSortMode.NotSortable
            .Columns(2).SortMode = DataGridViewColumnSortMode.NotSortable
            .Columns(3).SortMode = DataGridViewColumnSortMode.NotSortable
            .Columns(4).SortMode = DataGridViewColumnSortMode.NotSortable
            .Columns(5).SortMode = DataGridViewColumnSortMode.NotSortable
            .Columns(6).SortMode = DataGridViewColumnSortMode.NotSortable
            .Columns(7).SortMode = DataGridViewColumnSortMode.NotSortable

            .Columns(2).DefaultCellStyle.Format = "#,##0.00"
            .Columns(3).DefaultCellStyle.Format = "#,##0.00"
            .Columns(5).DefaultCellStyle.Format = "#,##0.00"
            .Columns(6).DefaultCellStyle.Format = "#,##0.00"

            .Columns(0).ReadOnly = True
            .Columns(1).ReadOnly = True
            .Columns(4).ReadOnly = True
            .Columns(6).ReadOnly = True
            .Columns(7).ReadOnly = True


            .AlternatingRowsDefaultCellStyle.SelectionBackColor = Color.Gold
            .AlternatingRowsDefaultCellStyle.SelectionForeColor = Color.Black
            .DefaultCellStyle.SelectionBackColor = Color.Gold
            .DefaultCellStyle.SelectionForeColor = Color.Black
            .AlternatingRowsDefaultCellStyle.BackColor = Color.WhiteSmoke

            DataGridView1.Font = New Font("Microsoft Sans Serif", 9, FontStyle.Regular)
            .AllowUserToResizeRows = False
            .AllowUserToResizeColumns = False
            .AllowUserToAddRows = False
        End With

    End Sub

Private Sub DataGridView1_CellEndEdit(sender As Object, e As DataGridViewCellEventArgs) Handles DataGridView1.CellEndEdit
        DataGridView1(1, e.RowIndex).Value = "TOR " + 555
        DataGridView1(2, e.RowIndex).Value = "TOR " + 666
        DataGridView1(3, e.RowIndex).Value = "TOR " + 777
        DataGridView1(4, e.RowIndex).Value = "TOR " + 888
    End Sub

public static System.Data.DataTable GetTableForm(string _SQL, string strConn )

        {
            
            System.Data.DataSet ds = new System.Data.DataSet();
            
                    System.Data.SqlClient.SqlConnection conn = new  System.Data.SqlClient.SqlConnection(strConn);
                    conn.Open();
                    System.Data.SqlClient.SqlDataAdapter adapter = new  System.Data.SqlClient.SqlDataAdapter(_SQL, conn);
                    adapter.Fill(ds);

            return ds.Tables[0];

        }

DataTable DTable = GetTableForm("Select ทูน่า from กระป๋อง",connstring); 
dataGridView.DataSource = DTable ;

dataGridView.DataSource = GetTableForm("Select ทูน่า from กระป๋อง",connstring);