Private Sub doldur()

        Dim baglanti As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source='kayıt.mdb'")



        baglanti.Open()

        Dim komut As New OleDb.OleDbCommand("Select Kayitlar.AdiSoyadi FROM Kayitlar GROUP BY Kayitlar.AdiSoyadi", baglanti)



        Dim oku As OleDb.OleDbDataReader

        oku = komut.ExecuteReader()

        While oku.Read()

            ComboBox1.Items.Add(oku("AdiSoyadi"))

        End While



        baglanti.Close()



    End Sub