dilerim işinize yarar istediğiniz gibi sorgusuz yapmaya çalıştım
Değişenler:
1 - Aramada kullanılan 3 açılır kutunun otomatik genişlet  özelliklerini hayır yaptım
2 - Aramada kullanılan 3 açılır kutunun içeriğini bir biriyle ilişkilendirmek için CmbDldr adlı yeni bir fonksiyon tanımladım. bende düzgün çalıştı ama yine de garantisi yok)

Sub CmbDldr() '<--Eklendi

x = ActiveControl.SelStart

    ActiveControl.Value = ActiveControl.Text

    ActiveControl.SelStart = x



    strSQLCmb = " where Not IsNull(id)"

    

    If Len(Nz(cmboAdArama.Value, "")) > 0 Then strSQLCmb = strSQLCmb & " and Ad like '*" & cmboAdArama.Value & "*'"

    If Len(Nz(cmboSoyadArama.Value, "")) > 0 Then strSQLCmb = strSQLCmb & " and Soyad like '*" & cmboSoyadArama.Value & "*'"

    If Len(Nz(cmboYasArama.Value, "")) > 0 Then strSQLCmb = strSQLCmb & " and Yas like '*" & cmboYasArama.Value & "*'"



cmboAdArama.RowSource = "select distinct ad from Tablo1 " & strSQLCmb

cmboSoyadArama.RowSource = "select  distinct Soyad  from Tablo1 " & strSQLCmb

cmboYasArama.RowSource = "select  distinct Yas  from Tablo1 " & strSQLCmb

End Sub

3 - sorguyu sildim
4 - % yerine * kullandım