Ошибка сохранения данных из несвязанного DGV в базу данных

Question

У меня есть 2 Datagridview, первый dgv не связан, а второй связан, когда я передаю данные из несвязанного dgv в связанный dgv я получаю ошибку

vshost.exe has stopped working 

Это работает, когда копируется только одна строка, но когда это две или более строк, я получаю сообщение об ошибке.

Вот мой код:

Dim i As Integer
Dim cellvalue1 As String = ""
Dim cellvalue2 As String = ""
Dim cellvalue3 As String = ""
Dim cellvalue4 As String = ""
Dim cellvalue5 As String = ""

For i = 0 To Me.DataGridView1.Rows.Count - 2
    cellvalue1 = DataGridView1.Rows(i).Cells("Column1").Value.ToString
    cellvalue2 = DataGridView1.Rows(i).Cells("Column2").Value.ToString
    cellvalue3 = DataGridView1.Rows(i).Cells("Column3").Value.ToString
    cellvalue4 = DataGridView1.Rows(i).Cells("Column4").Value.ToString
    cellvalue5 = DataGridView1.Rows(i).Cells("Column5").Value.ToString
    Dim constr As String = "insert into Table1 ([Food No], [Food Name], [Amount], [Quantity],[Total]) VALUES (@f1, @f2,@f3,@f4,@f5)"
    Dim cmd As OleDbCommand = New OleDbCommand(constr, con)
    cmd.Parameters.AddWithValue("@f1", cellvalue1)
    cmd.Parameters.AddWithValue("@f2", cellvalue2)
    cmd.Parameters.AddWithValue("@f3", cellvalue3)
    cmd.Parameters.AddWithValue("@f4", cellvalue4)
    cmd.Parameters.AddWithValue("@f5", cellvalue5)

    cmd.ExecuteNonQuery()
Next