Arkadaşlar projemde comboları otomatik tamamlama yapmak istiyorum internette arama yaptım aşağıdaki kodları buldum ama işime yaramadı yada ben yapamadım

Private Sub combo1_Change()
Dim i As Long
Dim nSel As Long
If X = True Or Combo1.Text = "" Then
X = False
Exit If

For i = 0 To Combo1.ListCount - 1
If InStr(1, Combo1.List(i), Combo1.Text, _
vbTextCompare) = 1 Then
nSel = Combo1.SelStart
Combo1.Text = Combo1.List(i)
Combo1.SelStart = nSel
Combo1.SelLength = Len(Combo1.Text) - nSel
Exit For
End If
Next
End Sub

yalnız ben combobox icine verileri veritabanından alıyorum ve şu kodları kullandım tam istedigim gibi ama bir de buna otomatik tamamlama istiyorum

Dim sorgu
sorgu = Combo1.Text
Set conn = New ADODB.Connection
With conn
.Provider = "Microsoft.JET.OLEDB.4.0"
.Open App.Path & "\proje.mdb"
End With
Set rst = New ADODB.Recordset
With rst
.ActiveConnection = conn
.Open "SELECT DISTINCT ad,soyad FROM tekser WHERE (ad= '" + sorgu + "') ", conn, adOpenDynamic, adLockBatchOptimistic
End With
Combo2.Clear
While Not rst.EOF()
Combo2.AddItem rst!soyad
rst.MoveNext
Wend
Set rst = Nothing
conn.Close


şimdiden teşekkurler
__________________