Использовать CheckBoxList в DevExpress vb.net Назначить и оценить?

Это код, который мы будем использовать

        With clEmpresas.Properties
            If .DataSource IsNot Nothing Then .DataSource = Nothing
            .DataSource =  bdEmpresa 
            If .DataSource.rows.count = 0 Then Return Nothing 'no data to load
            'get the names from the dataset, don't expect them to be specific names
            .ValueMember = .DataSource.rows(0).Table.Columns(0).ColumnName
            .DisplayMember = .DataSource.rows(0).Table.Columns(1).ColumnName

            'Set the selected items, comma separated list of ids
            If selectedIds <> "" Then
                For i As Integer = 0 To .ItemCount - 1
                    If Array.IndexOf(selectedIds.Split(","), .GetItemValue(i).ToString) >= 0 Then
                        .SetItemChecked(i, True)
                    End If
                Next
            End If

        End With

Вы можете использовать свойство CheckMember, чтобы позволить элементу управления автоматически проверять выбор значения из назначенного источника данных: например

clEmpresas.DataSource = bdEmpresa
clEmpresas.DisplayMember = "Nombre"
clEmpresas.ValueMember = "idEmpresa"
clEmpresas.CheckMember= "Acceso"

После этого вы можете использовать свойство CheckedItems, чтобы получить выбранные элементы, если пользователь меняет выбор в элементе управления. см. пример ниже:

Private Sub SimpleButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SimpleButton1.Click
        For Each item As DevExpress.XtraEditors.Controls.CheckedListBoxItem In CheckedListBoxControl1.CheckedItems
            MessageBox.Show(item.Value.ToString())
        Next
    End Sub

Обратитесь к ним:
получить выбранные элементы из проверенного списка
Как получить проверенные строки CheckedListBoxControl с привязкой к данным
Получить индекс элемента из DevExpress CheckedListBoxControl с привязкой к данным