Set rs = rsSet rs.Filter = "[ParentItem]='" & ParentName & "'"
http://www.sql.ru/forum/1130671/filtr-v-dao