Private Sub doldur()
baglanti.Open()
kmt.Connection = baglanti
kmt.CommandText = "Select AdiSoyadi,BabaAdi,DogumYeri from KAYITLAR group By AdiSoyadi,BabaAdi,DogumYeri"
Dim oku As OleDb.OleDbDataReader
oku = kmt.ExecuteReader()
While oku.Read()
ComboBox1.Items.Add(oku("AdiSoyadi").ToString())
ComboBox2.Items.Add(oku("BabaAdi").ToString())
ComboBox3.Items.Add(oku("DogumYeri").ToString())
End While
baglanti.Close()
oku.Dispose()
ComboBox1.Sorted = True
ComboBox2.Sorted = True
ComboBox3.Sorted = True
End Sub