Access tablolarından comboboxa veri çekme?

    Dim baglanti As New OleDbConnection("Provider=Microsoft.Jet.Oledb.4.0; Data Source=Database\database.mdb")
        baglanti.Open()
        Dim komut As New OleDb.OleDbCommand("SELECT DERSADI FROM DERSLER", baglanti)
        Dim oku As OleDb.OleDbDataReader
        oku = komut.ExecuteReader()
        While oku.Read()
            ComboBox1.Items.Add(oku("DERSADI"))
        End While
        baglanti.Close()

Dim komut As New OleDb.OleDbCommand("SELECT DERSADI FROM DERSLER", baglanti) 
        Dim oku As OleDb.OleDbDataReader 
        oku = komut.ExecuteReader() 
        While oku.Read() 
            ComboBox1.Items.Add(oku("DERSADI"))

Dim komut As New OleDb.OleDbCommand("SELECT DERSADI,DERSLER,OGRETMENLER FROM DERSLER", baglanti) 
        Dim oku As OleDb.OleDbDataReader 
        oku = komut.ExecuteReader() 
        While oku.Read() 
            {
             ComboBox1.Items.Add(oku("DERSADI")) 
             ComboBox2.Items.Add(oku("DERSLER")) 
             ComboBox3.Items.Add(oku("OGRETMENLER")) 
             }

Diabolist adlı üyeden alıntı: mesajı görüntüle

değerli hocalarım, bunlar tablolarım..

bunların içersindede kolonlar var..
İlk olarak



bu kod ile combobox1 i DERSLER tablosunun DERSADI adlı kolonundan çektiriyorum bu işlem başarılı..

combobox2'ye de OgretimElemani adlı tablomdan ADI adlı kolonu çektirmek istiyorum.. Böyle gidicek bunu yapamadım

Dim baglanti As New OleDbConnection("Provider=Microsoft.Jet.Oledb.4.0; Data Source=Database\database.mdb") 
baglanti.Open() 

Dim komut As New OleDb.OleDbCommand("SELECT DERSADI FROM DERSLER", baglanti) 
Dim komut2 As New OleDb.OleDbCommand("SELECT OGRETIM FROM OgretimElemani", baglanti) 

Dim oku As OleDb.OleDbDataReader 
oku = komut.ExecuteReader() 

While oku.Read() 
ComboBox1.Items.Add(oku("DERSADI")) 
End While 

Dim oku2 As OleDb.OleDbDataReader 
oku2 = komut2.ExecuteReader() 

While oku2.Read() 
ComboBox2.Items.Add(oku("OGRETIM")) 
End While 

baglanti.Close()