SQLPwPnt = "SELECT vaaz.kategori, vaaz.baslik, vaaz.metin, vaaz.kaynak FROM vaaz " & _

         " WHERE (((" & Xvarsay & ")" & _

         " Like '*" & XKriter & "*' ));"

"TxtAra_Change()" de yer alan yukardaki kodu aşağıdaki ile değiştirirseniz sadece seçili olanlar, "sıranoya" göre  göstermesi gerek

SQLPwPnt = "SELECT vaaz.kategori, vaaz.baslik, vaaz.metin, vaaz.kaynak FROM vaaz " & _

         " WHERE (((sec)=True) AND ((" & Xvarsay & ")" & _

         " Like '*" & XKriter & "*' )) ORDER BY sirano;"

order by : sıralama ölçütü
((sec)=True) : seçili olanları