使用vb6在listview中动态创建列

程序运行时是否可以在listview中添加列

我正在使用vb6

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

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

---

我知道这是错的，所以我需要你的帮助提前谢谢你

什么是“a”？唱片集？档案？请包含更多的代码。此外，上面的代码是这样说的：当“a”的文件结尾为True时，运行以下代码，这将导致溢出错误，因为这是一个无限循环