Merhaba ben aşağıdaki kodları kullanıyorum...
Combobox ile arama;
Aranılan isim ile tamam eşleşen kayıtlar listelenir.
Private Sub Combo1_Change()
On Error Resume Next
If Combo1.Text = "" Then
Adodc1.Recordset.Filter = ""
Adodc1.Refresh
Else
Adodc1.Recordset.Filter = "Ad= '" & Combo1.Text...