[ممدوح]

ربط CheckedListBox1 يكون بشكل أبسط وبدون فتح الاتصال وغلقه

كود :

Dim Dp As New OleDbDataAdapter("SELECT * FROM adcusmr ORDER BY cust_name", objconn)
Dim dtcom As New DataTable
Dp.Fill(dtcom)

CheckedListBox1.DataSource = dtcom
CheckedListBox1.DisplayMember = "cust_name"
CheckedListBox1.ValueMember = "cumcod"

ومعرفة cumcod للعناصر المؤشر عليها يكون

كود :

For Each itm As DataRowView In CheckedListBox1.CheckedItems
    MsgBox(itm("cumcod"))
Next