aklıma 2 farklı yöntem geliyor:
1 -kriterleri ayrıca alırsınız ve alırken alan adını doğrudan almak yerine boş değerle birleştirilerek alabilirsiniz [Okulu] & "" gibi
ben sadece oluk için sorgu yazdım siz diğerleri için yaparsınız

SELECT Tablo1.Kimlik, Tablo1.Adi, Tablo1.Okulu, Tablo1.Sinif, Tablo1.Sube, Tablo1.Ders, Tablo1.Ogretmen, Tablo1.Sehir, Tablo1.Ilce

FROM Tablo1

WHERE ((([Okulu] & "") Like "*" & [Forms]![Form1]![txtOkulugecici] & "*"))

ORDER BY Tablo1.Kimlik;

2 - metin kutularının içeriği değiştiğinde çalışacak bir fonksiyon oluşturup fonksiyon içinde metin kutularını kontrol ettirip sadece içinde veri olan metin kutuarına ait alanlar için kriter satırı eklemek Not aşağıdaki fonksiyonu başka bir çalışma için yapmıştım sadece fikir vermesi için paylaşıyorum kendi çalışmanıza uyarlarsınız

sub txtFiltre()

Dim Kriter As String

sqlX ="SELECT Tablo1.Kimlik, Tablo1.Adi, Tablo1.Okulu, Tablo1.Sinif, Tablo1.Sube, Tablo1.Ders, Tablo1.Ogretmen, Tablo1.Sehir, Tablo1.Ilce FROM Tablo1 "

Kriter = ""

If Len(Me.Text0.Value & "") > 0 Then Kriter = Kriter & " and [il] like '*" & Me.Text0.Value & "*'"

If Len(Me.Text2.Value & "") > 0 Then Kriter = Kriter & " and [ilçe] like '*" & Me.Text2.Value & "*'"

'...

'...

'...

'diğer koşullar

Kriter = Mid(Kriter, 6)

'

'çalışmanıza uygun şekilde birleştirebilirsiniz

if len(Kriter )>0 then Kriter = " where " & Kriter 

lstListe.rowsource=sqlX  & Kriter & " ORDER BY Tablo1.Kimlik;"

End Sub