Как выполнить SQL запрос, а результат загнать в ListView

[~Виктор~]

Имеется Acces'овская База, в ней таблица Взвешивание, как мне выполнить в VB6 SQL запрос и поместить результат в ListView

Таблицу открываю так:
Set Взвешивание = db.OpenRecordset(tabname11, dbOpenDynaset)

Текст моего запроса:
SELECT Взвешивание.Код, Взвешивание.Транспорт, Взвешивание.Водитель, Взвешивание.Груз, Взвешивание.Тип_груза, Взвешивание.Нетто, Взвешивание.Тип_операции
FROM Взвешивание
WHERE (((Взвешивание.Транспорт)=1));

[~Виктор~]

Ну что ниужели никто не подскажет как выполнить запрос?

[Alexanbar]

Где-то так:

Код: Выделить всё


with  Взвешивание


.movelast
do
  set Litem=  listview1.listitems.add( ,,.Fields("Код").value)
  litem.subitems(1)=.Fields("Транспорт").value
...
if 'не достигнута первая запись' then
     .moveprevios
else
      exit do
endif
loop


end with

Только надо отслеживать пустые поля