Глючит 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

[MMX//ALEX]

Попробуй сделать цикл не Do Until poisk.EOF на
for i=0 to poisk.listcount - 1

[RayShade]

Хм...... а где вы, уважаемый, видели у RecordSet проперть ListCount?

[DOVG]

Больше не глючит.
main.ListView1.ListItems.Clear
main.ListView1.Sorted = False
Если Sorted включен у него полный маразм при загрузке.
Всем спасибо.