Я написал следующий код для вставки данных из dbgridview в базу данных в access. Я понимаю, что индекс проблем был вне зоны досягаемости. Пожалуйста предложите мне решение

---

Dim TDate As Date
            Dim Batch As String
            Dim Product As String
            Dim Code As String
            Dim Material As String
            Dim Quantity As String
            For i As Integer = 0 To DataGridView1.Rows.Count - 1
                TDate = DataGridView2.Rows(i).Cells(0).Value
                Batch = DataGridView1.Rows(i).Cells(1).Value
                Product = DataGridView1.Rows(i).Cells(2).Value
                Code = DataGridView1.Rows(i).Cells(3).Value
                Material = DataGridView1.Rows(i).Cells(4).Value
                Quantity = DataGridView1.Rows(i).Cells(5).Value
                con.Open()
                sql = "INSERT INTO Material_consumption(TDate, Batch, Product_name, Material_code, Material_name, Quantity) VALUES(?,?,?,?,?,?)"
                Dim cmd As New OleDb.OleDbCommand(sql, con)
                ' cmd.Parameters.Add(New System.Data.OleDb.OleDbParameter("@TDate", TDate))
                '  cmd.Parameters.Add(New System.Data.OleDb.OleDbParameter("@Batch", Batch))
                cmd.Parameters.AddWithValue("@TDate", TDate)
                cmd.Parameters.AddWithValue("@Batch", Batch)
                cmd.Parameters.AddWithValue("@Product_name", Product)
                cmd.Parameters.AddWithValue("@Material_code", Code)
                cmd.Parameters.AddWithValue("@Material_name", Material)
                cmd.Parameters.AddWithValue("@Quantity", Quantity)
                cmd.ExecuteNonQuery()
                ' cmd.Dispose()

            Next
            con.Close()
             MessageBox.Show("Registered Successfully!", "Register", MessageBoxButtons.OK, MessageBoxIcon.Information)
            Catch ex As OleDb.OleDbException
            MsgBox(ex.Message, MsgBoxStyle.Critical, "Oledb Error")
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Critical, "General Error")
        End Try

        MessageBox.Show("Records inserted.")

Что я уже пробовал:

Я написал следующий код для вставки данных из dbgridview в базу данных в access. Я понимаю, что индекс проблем был вне зоны досягаемости. Пожалуйста, предложите мне решение. Я написал в VB

---