เมื่อคลิกที่ checkbox ที่อยู่ใน datagridview แล้วให้วนลูปบันทึกข้อมูลมัน error อะคับ

Dim cbcIsLeave = New DataGridViewCheckBoxColumn()
            cbcIsLeave.Name = "ColIsLeave "
            cbcIsLeave.HeaderText = "ผลการพิจารณา"
            cbcIsLeave.Width = 120
            cbcIsLeave.DisplayIndex = 7
            dgvBorrower.Columns.Add(cbcIsLeave)

  Try                                'ให้ทำ

            For i As Integer = 0 To dgvBorrower.Rows.Count - 1

                If dgvBorrower.Rows(i).Cells("CollsLeave").Value IsNot Nothing Then

                    If Convert.ToBoolean(dgvBorrower.Rows.cells("CollsLeave").Value) = True Then

                    CHID = dgvBorrower.Rows(i).Cells("Borrower_id").Value.ToString()
                    Paystatus = dgvBorrower.Rows(i).Cells("Consideration").Value.ToString()

                    'สร้างชุดคำสั่ง sqlUpdate เพื่อแก้ไขมูลในตาราง Borrower

                    sb.Remove(0, sb.Length)
                    sb.Append(" UPDATE Borrower")
                    sb.Append(" SET Consideration='1'")
                    sb.Append(" Paystatus ='ค้างชำระ'")
                    sb.Append(" WHERE (Borrower_id=@Borrower)")
                    sqlSave = sb.ToString()

                    Dim Com As New OleDbCommand()        'ตัวแปรออบเจ็กต์ OleDbCommand

                    If MessageBox.Show("คุณต้องการอนุมัติ :" & " ใช่หรือไม่?", "คำยืนยัน", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = Windows.Forms.DialogResult.Yes Then
                        With Com

                            .Parameters.Clear()
                            .Parameters.Add("@Borrower_id", OleDbType.VarChar).Value = CHID
                            .Parameters.Add("@Consideration", OleDbType.VarChar).Value = Paystatus
                            .CommandText = sqlSave
                            .Transaction = tr
                            .CommandType = CommandType.Text
                            .ExecuteNonQuery()

                        End With

                    End If
                  End If

                End If
            Next
            tr.Commit()  'บันทึกข้อมูลเรียบร้อย
            MessageBox.Show("บันทึกข้อมูลเรียบร้อยแล้วค่ะ", "ผลการบันทึก", MessageBoxButtons.OK, MessageBoxIcon.Information)

        Catch ex As Exception       'กรณีเกิดข้อผิดพลาด
            MessageBox.Show("ไม่สามารถบันทึกข้อมูลได้ค่ะ", "ผลการบันทึก", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub
        End Try