Имеется некоторый список АС(автоматизированная система) при выборе значения из которого из базы данных подгружается
список зданий и помещений.Из них выделяются те, которые принадлежат данной АС.
Так вот..при первом клике на список АС все нормально выделяется,а после если кликать 2,3 раз и т.д. выделяется неправильно.

Список строчек которые нужно выделять загружается из запроса в белый список справа(ListSelection).
Код изменения выделения списка помещений:

Private Sub AC_Click()
Me.[Buildings].Requery
For i = 0 To Me![Buildings].ListCount
Me![Buildings].Selected(i) = False
Next

For i = 0 To Me![Buildings].ListCount
For j = 0 To Me![ListSelection].ListCount
If Me![Buildings].Column(1, i) = Me![ListSelection].Column(1, j) Then
Me![Buildings].Selected(i) = True
End If
Next
Next

http://www.sql.ru/forum/1206499/nepravilno-vydelyautsya-strochki-v-spiske