[hosamloveme888@yahoo.com]

السلام عليكم اخواني واخوات سوال بسيط في الفيجوال بيسك 2010 وقاعدة بيانات اكسس 2010 

اريد انشاء CheckedListBox تلقائي من خلال حقل معين في الداتا قريد فيو بمعنا ان عند تحميل الفور يقوم باخد القيم الموجوده في العمود أ     وادراجها في CheckedListBox علشان كل ما اضيف حقل في الداتا قريد يتم انشاء CheckedBox جديده وشكرا ارجو المساعده 

[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()