[ahmadpal]

كود :

     dim DT As New DataTable
      dim DA As New OleDbDataAdapter
       DT.Clear()
      DA = New OleDbDataAdapter("select * from tablename ", con)
       DA.Fill(DT)

       compobox1.DataSource = DT
       compobox1.DisplayMember = "رقم_الفصل"
       compobox1.ValueMember = "id"