Vb.net te Combo Box a veri çekme

Merhaba VB.Nette msssql veri tabanındaki üyeler tablosundaki adı soyadi bilgisini comboya dolduruyorum. Fakat 10 binden fazla kayıt var bu yüzden yükleme uzun sürebiliyor. Nasıl bir yöntem kullanmalıyım ki (google arama mantığı gibi) hemen yüklesin ve google da olduğu gibi  sağa ve aşağı açılarak arama yapabileyim.. Ayrıca comboda arama yaparken aşağı doğru açılıyor ama bu açılan kısmı aramaya göre boyutunu ayarlamak istiyorum. (dropdown height ). Belki biraz fazla olacak ama arama kriterlerine göre combo içersine 2 alanı görüntüleyebilirmiyim. yani combaya mssql den 2 field çekme

 

 Şimdiden teşekkürler iyi çalışmalar....

 

 

 '_________üyeleri combobaxa ekleme

Private Sub uyeleri_combobaxa_ekle_adisoyadi()

        Try

            Dim ds As New DataSet

            Dim connection As New SqlClient.SqlConnection

            Dim command As New SqlClient.SqlCommand

            Dim adaptor As New SqlClient.SqlDataAdapter

            connection.Close()

            connection.ConnectionString = ("Data Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\db.mdf;User ID=sa;Password=1234;")

            command.CommandText = " SELECT adi_soyadi,id FROM uyeler"

            ds.Clear()

            connection.Open()

            command.Connection = connection

            adaptor.SelectCommand = command

            adaptor.Fill(ds)

            connection.Close()

            AraComboBox1.DataSource = ds.Tables(0)

            AraComboBox1.DisplayMember = "adi_soyadi"

            AraComboBox1.ValueMember = "id"

 

                   Catch ex As Exception

            MessageBox.Show(ex.Message, "Hata, MessageBoxButtons.OK, MessageBoxIcon.Stop)

        End Try

    End Sub 

 

' _________arama combanın text change olayı

private sub arama_yap 

Try

                Dim ds As New DataSet

                Dim connection As New SqlClient.SqlConnection

                Dim command As New SqlClient.SqlCommand

                Dim adaptor As New SqlClient.SqlDataAdapter

                connection.Close()

                connection.ConnectionString = ("Data Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\db.mdf;User ID=sa;Password=1234;")

                command.CommandText = " SELECT  tcno,id,uye_durum,adi_soyadi FROM uyeler where adi_soyadi like '" & AraComboBox1.Text & "%' "

                ds.Clear()

                connection.Open()

                command.Connection = connection

                adaptor.SelectCommand = command

                adaptor.Fill(ds)

                connection.Close() 

end sub