使用vb6在listview中动态创建列

Question

  

是否可以在程序运行时在列表视图中添加列？

我正在使用vb6。

这是我的代码，但我在EOF中出错可能因为我没有使用任何数据库，因为我不需要它。

Do While a.EOF
Set itmX = ListView2.ListItems.Add(, , Text2)
                    itmX.SubItems(1) = Text2.Text
                    itmX.SubItems(2) = Text2
Loop

我知道这是错的，这就是我需要你帮助的原因.. :)提前谢谢你