Aynı sütunda birden fazla kritere göre süzme

[hegza]

Sayın arkadaşlar;

ek'te bulunan dökümanda, stnalma sayfasında, c sütunundan (malzeme türü), userforma eklemiş olduğum listbox2 çoklu seçim özelliği ile birden fazla kriter seçerek nasıl süzme yapabilirim? yalnız bu işlem userformda bulunan satınalma bölümündeki diğer kriterlerle senkronize çalışmalı. "rapor al" butonu ile.
Bu kodların içine dahil edebilirsek istediğim gibi olacağını zannediyorum. Ancak nasıl yapabiliriz bunu, işin içinden çıkamadım.

Sub Stn_Alma()
Sheets("sr").Range("a2:Z65536").Value = ""
Call baglan
evnsorgu = "select * from [stnalma$A2:m65536] WHERE not isnull([stnalma$A2:m65536].[PROJE])"
If ComboBox4.Text <> "" Then evnsorgu = evnsorgu & " AND [stnalma$A2:m65536].[PROJE] like '%" & ComboBox4.Text & "%'"
If ComboBox5.Text <> "" Then evnsorgu = evnsorgu & " AND [stnalma$A2:m65536].[PROJE KODU] like '%" & ComboBox5.Text & "%'"
If ComboBox6.Text <> "" Then evnsorgu = evnsorgu & " AND [stnalma$A2:m65536].[MALZEME TÜRÜ] like '%" & ComboBox6.Text & "%'"
If ComboBox7.Text <> "" Then evnsorgu = evnsorgu & " AND [stnalma$A2:m65536].[TEDARİKÇİ] like '%" & ComboBox7.Text & "%'"
If TextBox1.Text <> "" Then evnsorgu = evnsorgu & " AND [stnalma$A2:m65536].[TARİH] >= cdate('" & TextBox1.Text & "')"
If TextBox2.Text <> "" Then evnsorgu = evnsorgu & " AND [stnalma$A2:m65536].[TARİH] <= cdate('" & TextBox2.Text & "')"
Set rs = CreateObject("adodb.recordset")
rs.Open evnsorgu, con, 1, 1
Sheets("sr").Range("a2").CopyFromRecordset rs
End Sub