aşağıdaki kodlar örneğinizden alıntıdır.
bu mantık ile arama kriteri olabilecek form elemanlarını if ile dolu olma durumunu kontrol ederek Sql değişkeni içersinde kriteri biriktirerek buton kodunun en sonuna eklediğim liste veri kaynağını tekrar oluştur ve yenile yapıp formda sonucu görebilirsin.

Private Sub Komut112_Click()
Dim Sql As String
SQL = ""

If Me.BOLGE <> "" Then
If Sql = "" Then
Sql = Sql + "[BOLGE]='" & Me.BOLGE & "'"
Else
Sql = Sql + " and [BOLGE]='" & Me.BOLGE & "'"
End If
End If
.
.
.
.
.
.
.
.
.
.

Me.Liste113.RowSource="SELECT ARACLAR.[Sıra No], ARACLAR.[Çeker Plaka], ARACLAR.Markası, ARACLAR.Tipi, ARACLAR.Modeli, ARACLAR.Rengi, ARACLAR.Sahiplik, ARACLAR.Operasyon, ARACLAR.[Trafiğe Çıkış Tarihi], ARACLAR.[Garanti Süresi Bitiş Tarihi], ARACLAR.[Fenni Muayene Bitiş Tarih], ARACLAR.[Eksoz Muayene Bitiş Tarih], ARACLAR.[Trafik Sigorta Bitiş Tarih], ARACLAR.Durum, ARACLAR.Bölge FROM ARACLAR" & Sql & ";"
Me.Liste113.Requery

End Sub