[hosamloveme888@yahoo.com]

كود :

con.Open()
       Dim cmd As New OleDbCommand
       cmd.CommandText = "select * from AccessoriesName"
       cmd.Connection = con
       dr = cmd.ExecuteReader
       With dr.Read
           CheckedListBox1.Items.Add(dr(0))
           ListBox1.Items.Add(dr(0))
       End With
       con.Close()