If Len(sinif & "") > 0 Then   StrFiltre =                 " and [siniflar.sinifAdi]='" & sinif & "'"
If Len(tarih1 & "") > 0 Then StrFiltre = StrFiltre & " and [surec.İslemTarihi]>=" & CLng(tarih1)
If Len(tarih2 & "") > 0 Then StrFiltre = StrFiltre & " and [surec.İslemTarihi]<=" & CLng(tarih2)


kodlara dikkat ederseniz hepsinin başına and eklenmiş 
ilk and fazladan onu silmek için ilk 5 karakteri koşuldan çıkarmak gerek yoksa sorgu hata verir
eğer ilk and çıkmazsa kriter aşağıdaki gibi alınır

" and [siniflar.sinifAdi]='sınıf'"  & " and [surec.İslemTarihi]>=tarih and [surec.İslemTarihi]<=tarih"
Mid(StrFiltre, 6) ile and silinince
"[siniflar.sinifAdi]='sınıf'"  & " and [surec.İslemTarihi]>=tarih and [surec.İslemTarihi]<=tarih"