Problemas na hora de salvar um datagridview

Boa Tarde

Estou precisando de ajuda, estou fazendo uma tela de vendas e estou usando textbox para preecher um datagridview com os produtos desejado e estou tentando salvar esses produtos no meu bd so que so salva a primeira linha do datagridview alguem sabe como salvar todas a linhas?

aqui esta meu codigo

'lança os produtos para o texbox

private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

DataGridView1.Rows.Insert(0, TextBox1.Text, TextBox2.Text, TextBox3.Text, TextBox4.Text)

End Sub

'salva na tabela do meu bd

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

For Each item In DataGridView1.ToString

DataGridView1.Rows.Add(item)

Try

Me.VendaTableAdapter.INSI(Me.ClienteTextBox.Text, Me.ProdutoListBox.Text, Me.QuantidadeListBox.Text, Me.ValoruniListBox.Text, Me.ValortotalListBox.Text)

Me.VendaBindingSource.MoveMin()

Me.atualiza_dados()

MsgBox("Venda Adicionados com sucesso", MsgBoxStyle.Information, "Gravar")

Catch ex As Exception

System.Windows.Forms.MessageBox.Show(ex.Message)

End Try

End Sub

　'detemina onde as colunas ta tabela

Private Sub DataGridView1_SelectionChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles DataGridView1.SelectionChanged

ProdutoListBox.Text = DataGridView1.CurrentRow.Cells(0).Value.ToString

QuantidadeListBox.Text = DataGridView1.CurrentRow.Cells(1).Value.ToString

ValoruniListBox.Text = DataGridView1.CurrentRow.Cells(2).Value.ToString

ValortotalListBox.Text = DataGridView1.CurrentRow.Cells(3).Value.ToString

End Sub

End Class