title: How to take data from access data to Combobox
body: <pre><code>Public Class AdminP_Time2
  
      Dim conn As OleDbConnection
      Dim cmd As OleDbCommand
      Dim sql As String
      Dim dr As OleDbDataReader
  
      Private Sub AdminP_Time2_Load(sender As Object, e As EventArgs) Handles MyBase.Load    
          conn = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=Database.accdb;Persist Security Info=False;")
          conn.Open() 'opens the connection
          sql = "SELECT * FROM LecturerName"
          cmd = New OleDbCommand(sql, conn)
  
          dr = cmd.ExecuteReader
  
          If dr.Read = True Then
              ComboBox1.Text = dr("LecturerName")
          End If 
  </code></pre>
  
  <p>why my combobox just show me 1 item ? can anyone help me ? i want take my access data to Combobox.</p>