ผมต้องการบันทึกข้อมูลจาก Datagridview เซฟลง ฐานข้อมูล MsAccess ครับ โค้ด VB

Dim sb As New StringBuilder()
For i As Integer = 0 To DataGridView1.RowCount - 1
    sb.Append("(" & "'pencil'" & ", " & "1200.25" & "),")
Next

Dim strTricks As XCData =
    <![CDATA[
      INSERT
      INTO 
      Sales (pro_name, total_s) Values {0}
    ]]>

Dim strSQL As String = String.Format(strTricks.Value, sb.Remove(sb.Length - 1, 1).ToString())
...
...
...

Insert into Sales (pro_name, total_s) Values (?, ?)
Parameters.Add("@pro_name", OleDbType.VarChar).Value = "pencil" 'มันเป็นข้อความ
Parameters.Add("@total_s", OleDbType.Double).Value = 1200.25 'มันเป็นจำนวนตัวเลข

Private Sub SaveToAccess()
        ' MessageBox.Show("บันทึกสินค้าแล้วคะ", "คำยืนยัน", MessageBoxButtons.OK)
        tr = Conn.BeginTransaction()
        Try
            sb.Remove(0, sb.Length)
            sb.Append("INSERT INTO Sales (sale_ids,cus_ids,pro_ids,pro_name,emp_ids,date_sales,total_s) ")
            sb.Append("VALUES (?, ?, ?, ?, ?, ?, ?)")

            Dim sqlAdd As String
            sqlAdd = sb.ToString()

            For i As Integer = 0 To DataGridView1.RowCount - 1
                If Not DataGridView1.Rows(i).IsNewRow Then
                    With Com
                        .CommandText = sqlAdd
                        .CommandType = CommandType.Text
                        .Connection = Conn
                        .Parameters.Clear()
                        .Transaction = tr
                        .Parameters.Add("@sale_ids", OleDbType.VarChar).Value = DataGridView1.Rows(i).Cells(0).Value
                        .Parameters.Add("@cus_ids", OleDbType.VarChar).Value = DataGridView1.Rows(i).Cells(1).Value
                        .Parameters.Add("@pro_ids", OleDbType.VarChar).Value = DataGridView1.Rows(i).Cells(2).Value
                        .Parameters.Add("@pro_name", OleDbType.VarChar).Value = DataGridView1.Rows(i).Cells(3).Value
                        .Parameters.Add("@emp_ids", OleDbType.VarChar).Value = DataGridView1.Rows(i).Cells(4).Value
                        .Parameters.Add("@date_sales", OleDbType.Date).Value = CDate(DataGridView1.Rows(i).Cells(5).Value)
                        .Parameters.Add("@total_s", OleDbType.Double).Value = CDbl(DataGridView1.Rows(i).Cells(6).Value)

                        .ExecuteNonQuery()

                    End With
                End If
            Next

            tr.Commit()
            'MessageBox.Show("เพิ่มพนักงานใหม่ เรียบร้อยแล้ว !!!", "ผลการทำงาน", MessageBoxButtons.OK, MessageBoxIcon.Information)
            MessageBox.Show("บันทึกข้อมูลเรียบร้อยแล้ว", "ข้อความ", MessageBoxButtons.OK, MessageBoxIcon.None)
        Catch ex As Exception
            MessageBox(ex.Message)
            'MessageBox.Show("คุณป้อนรหัสพนักงานซ้ำ !!!", "ผลการทำงาน", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
            tr.Rollback()
        End Try
    End Sub