Visual Basic - Filtro !!!!!

Hola a todos, vereis tengo un problemilla. Quiero aplicar un filtro a todos y cada uno de los formularios que tengo en una base de datos desde un modulo.
para ello tengo este codigo:

(en un modulo)

dim i as integer

for i =0 to CurrentProject.AllForms.Count
CurrentProject.AllForms(i).Filter = "ENVIAR= 'Si'"
CurrentProject.AllForms(i).FilterOn
next

¿alguna Sugerencia?

?... ?... ¿¿¿a cada uno de los formularios que tengoen una base de datos???