ник: snipe
Создайте запрос который бы удовлетворял вашему условию
(только не мудрите сильно - простенький запрос на выборку)
перейтите в режим SQL и посмотрите что написано после слова Where
вот такая фраза (примерно) должна попасть в filter
ну на вскидку
.Filter = "[Поле]=" & Me.Список10.Column(0)& " and [КодID]=" & dmax("КодID","ТаблицаФильтруемойФормы","[Поле]=" & Me.Список10.Column(0))