รบกวนสอบถามเกี่ยวกับเรื่อง checkbox เพื่อ update ข้อมูลด้วยครับ

        Dim ChkSelectUpdate As Boolean = False
                Dim PalletNo As String
        Dim Route As String
        Dim Store As String

        For i As Integer = 0 To DataGridView1.Rows.Count - 1
            ChkSelectUpdate = DataGridView1.Rows(i).Cells(0).Value
            PalletNo = DataGridView1.Rows(i).Cells(2).Value
            Route = DataGridView1.Rows(i).Cells(3).Value
            Store = DataGridView1.Rows(i).Cells(4).Value

            If ChkSelectUpdate  = True Then
                'MsgBox(ChkSelectUpdate & "==" & PalletNo & "==" & Route & "==" & Store, MsgBoxStyle.OkOnly)
              
                Try
                    Ora_Execute("update xx_test set ue_adrums = ue_adrqex,ue_adrres = ue_adrqex where ue_depot = '05' and ue_usscc = '" & PalletNo & "'")
                Catch ex As Exception
                    MsgBox(ex.Message)
                End Try
            End If
        Next