Ako to radiš iz VBA dodaj neposredno iza ovog:
strItems = strItems &" and ""& ctlSource.Column(0, intCurrentRow) & """
MsgBox strItems
i vidi šta ti vraća za vrednost strItems. Ako je to upravo "pera" And "milos" And "zika", onda nešto u upitu ne valja.
U upitu, u polju gde se nalaze imena pera, milos, zika treba za filter da ti stoji:
Forms!frmNazivForme!NazivPolja
i to polje ne sme da bude indeksno (po broju, već samo tekst).
Pozdrav,
Branislav