E allora devi mettere
codice:
with dlg1
Il codice è corretto, scommetti che se cancelli la riga dove ti dà errore l'errore te lo segnala alla riga Filter = .....

prova..

ciao