listview控件添加数据库中的数据！！

[yoxo]

我想在listview控件中添加数据库数据，listview有列头：题号，章节，内容；数据库表中有相应字段：题号，章节，内容。怎么把表中相应字段的数据添加到listview中？？？

[w18ily]

:
While Not InfoRst.EOF
Set nListItem = lvListView.ListItems.Add(i, ShowType & Format(CStr(i), "000"), Format(CStr(i), "000"), "", "")

nListItem.SubItems(1) = InfoRst.Fields(0).Value
nListItem.SubItems(2) = InfoRst.Fields(1).Value
nListItem.SubItems(3) = InfoRst.Fields(2).Value)
nListItem.SubItems(4) = InfoRst.Fields(3).Value
nListItem.SubItems(5) = InfoRst.Fields(
4).Value
nListItem.Tag = "000"

InfoRst.MoveNext
i=i+1
Wend
InfoRst.Close