VB LISTVIEW 序号问题

[panyong]

'为ListView1设置标题
.ColumnHeaders.Add , , "序号", 800

For i = 0 To rs.Fields.Count - 1
.ColumnHeaders.Add , , rs.Fields(i).Name
Next i

'为ListView1设置各行数据
'.ListItems.Clear
i = 0

While Not rs.EOF

'.ListItems.Add , , rs.RecordCount
For m = 1 To rs.RecordCount
Set Fliv = HNTZLJCQK.ListView1.ListItems.Add()
Fliv.Text = m
'以上怎么修改啊
i = i + 1

For j = 0 To rs.Fields.Count - 1
.ListItems(i).SubItems(j + 1) = rs.Fields(j).Value & ""
Next j


rs.MoveNext
Wend
End With


以上是用TRANSFORM查询的交叉表用LISTVIEW显示出来
问题在：从1排倒读出的最后一条记录 1 to rs.recordcount

[jhone99]

While Not rs.EOF

'.ListItems.Add , , rs.RecordCount
Set Fliv = HNTZLJCQK.ListView1.ListItems.Add ,,i

'以上怎么修改啊
i = i + 1

For j = 0 To rs.Fields.Count - 1
.ListItems(i).SubItems(j + 1) = rs.Fields(j).Value & ""
Next j


rs.MoveNext
Wend

[jhone99]

Set Fliv = HNTZLJCQK.ListView1.ListItems.Add( ,,i+1)