Глючит ListView

[DOVG]

В ListView загружаются данные с запроса базы данных.
После сортировки данных в ListView и новой загрузки
в ListView видны данные ТОЛЬКО в последней строке.

Что делать?

Если сортировку не делать, то новые данные нормально
видны.
Пробовал менять цвет шрифта - не видать данных.
Самое смешное, что данные в строках есть. Можно передать в Text.

Кусочек процедуры загрузки

Main.ListView1.ListItems.Clear
poisk.MoveFirst '
Do Until poisk.EOF
i = i + 1
Set itmN = Main.ListView1.ListItems.Add(i)
Main.ListView1.ListItems(i).SubItems(1) = рoisk.Fields(1)


poisk.MoveNext
Loop