Basic ile İl ve İlçeleri Veritabanından nasıl çeke

Hocam hastane randevu programı yapmam gerekiyor. İle göre ilçe , ilçeye göre hastane, hastaneye görede bölümleri ve bölümlere göre de doktor isimlerini veritabanından almam lazım ve bunları combobox ta gösterecem

Dim baglanti As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; " & "Data Source=" & Application.StartupPath & "\iller.mdb")
Dim adapter As New OleDbDataAdapter("SELECT * FROM iller", baglanti)
Dim ds As New DataSet
adapter.Fill(ds)
ComboBox1.DataBindings.Add("Text", ds.Tables(0), "sehir")

bu kodla şehirleri almaya çalıştım fakat ilk şehir ADANA geliyo sadece bunu bi döngü içine almalıyım galiba. while döngüsü kullanırsam şartım ne olması lazım ? birde diğer ilçeleri seçmem için daha kısa bi kod var mı acaba.Hepsini tek tek elle yazmak çok uzun sürer. yardımlarınız bekliyorum

dim dv as dataview
dv.tables = ds

dim cm as currencymanager = Ctype(me.bindingcontex(dv),currencymanager)
cm.position = 0

for i = 0 to dv.count
combobox1.items.add(cm.position)
cm.position += 1
next

pcde 2 işletim sistemi var. Visual studio diğerinde ama böyle birşey olması lazım. Olmadı özelden mesaj at.