Form_.Filter = "2 = " & DDD & "" Form_.FilterOn = True Form_.Requery
http://www.sql.ru/forum/1103917/obnovlenie-subformy-staro-kak-mir