怎么用listview夹在数据库的数据

Question

什么乱七八糟的。连循环都没有...
listview1.View = lvwReport '报表显示方式
listview1.GridLines = True '显示表格线
listview1.ColumnHeaders.Add "用户编号"
listview1.ColumnHeaders.Add "用户名称"
...
Dim li As ListItem
While Not rs.Eof
    Set li = listview1.ListItems.Add rs!第一列
    li.SubItems(0).Text = rs!第二列
    li.SubItems(1).Text = rs!第三列
    ...
    rs.MoveNext
Wend
...
以上代码只是大致思路，自己写写吧