Listview - VB (60220)

Формулировка задачи:

Доброго времени суток. По щелчку кнопки я переношу данные из базы данных в Listview Вот код:

 For i = 0 To UBound(mass1)
            mass1(i) = DataGridView3.SelectedCells(1).Value
            mass2(i) = DataGridView3.SelectedCells(4).Value
            ListView1.Items.Add(mass1(i))
            ListView1.Items(i).SubItems.Add(mass2(i))
 
        Next i

Проблема в том, что при первом выборе заполняются обе колонки в листвью, а после второго только первая. Помогите пожалуйста сделать так, чтобы заполнялись обе. Спасибо.

Решение задачи: «Listview»

textual
                            Листинг программы 
                        

                            Dim itm As ListItem
...
Set itm = ListView1.Items.Add(mass1(i))
itm.SubItems.Add(mass2(i))
...
                        