[atefkhalf2004]

استخدم الكود التالي  لاضافة العناصر في اللستة
كيف يتم عرض العنصر المحد

  Dim dscom As New DataSet
        Sql = "SELECT * FROM adcusmr  order by cust_name "
        'Sql = "SELECT * FROM adcusmr order by cust_name "
        Dp = New OleDbDataAdapter(Sql, objconn)
        Dp.Fill(dscom, "adcusmr")
        objconn.Close()
        If ComboBox1.Items.Count >= 1 Then
            'ComboBox1.Items.Clear()
        End If

 
        CheckedListBox1.DataSource = dscom.Tables("adcusmr")
        CheckedListBox1.DisplayMember = "cust_name"
        CheckedListBox1.ValueMember = "cumcod"



شكرا