My Code inserts only first row data in sqldatabase - vb.net

Question

How do I insert data of second row in SQL Server database? Here is my code:
Private Sub InsertStockDatagrid()
con.Open()
Dim cmdsrl As New SqlCommand("Select Code, Qty, Rate, Amt, Taxable, cgstamt, sgstamt,Type,Prefix,Srl,Branch FROM stock", con)
cmdsrl.Parameters.AddWithValue("Type", ComboBoxTranType.SelectedItem.ToString())
cmdsrl.Parameters.AddWithValue("Prefix", Lblprefix.Text)
cmdsrl.Parameters.AddWithValue("srl", TextINVNo.Text)
cmdsrl.Parameters.AddWithValue("Branch", LBLBranchcode.Text)
Dr8 = cmdsrl.ExecuteReader()
If (Dr8.Read()) Then
MessageBox.Show(" Unique field checked")
dr.Close()
Else
For Each Rw As DataGridViewRow In DataGridView1.Rows
'For RW As Integer = 0 To DataGridView1.Rows.Count - 1
Dim cmd = New SqlCommand("Insert into Stock (Code, Qty, Rate, Amt, Taxable, cgstamt, sgstamt,Type,Prefix,Srl,Branch) values('" & Rw.Cells(15).Value.ToString() & "','" & Rw.Cells(6).Value.ToString() & "','" & Rw.Cells(7).Value.ToString() & "','" & Rw.Cells(13).Value.ToString() & "','" & Rw.Cells(13).Value.ToString() & "','" & Rw.Cells(11).Value.ToString() & "','" & Rw.Cells(12).Value.ToString() & "','" & ComboBoxTranType.Text & "','" & Lblprefix.Text & "','" & TextINVNo.Text & "','" & LBLBranchcode.Text & "')", con)
cmd.ExecuteNonQuery()
Next
MessageBox.Show("Stock Data Entered")
con.Close()
Updatestocksrl()
End If
End Sub

Answer 1

Don't loop through the rows of DataGridView at all. Create a DataTable with the appropriate schema, populate it with initial data if appropriate and then bind it to the grid via a BindingSource. When it comes time to save the data, call Update on a SqlDataAdapter - the same one you used to retrieve the data if you did actually retrieve data - to save the changes from the DataTable. In its simplest form, that might look like this:
Private table As New Datatable
Private adapter As New SqlDataAdapter("SELECT * FROM MyTable", "connection string here")
Private commands As New SqlCommandBuilder(adapter)
Private Sub GetData()
adapter.Fill(table)
BindingSource1.DataSource = table
DataGridView1.DataSource = BindingSource1
End Sub
Private Sub SaveData()
Validate()
BindingSource1.EndEdit()
adapter.Update(table)
End Sub