你的问题还真不少,listview的,
lvw.ListItems.Add , "W" & intI, CStr(intI + 1) '自动生成序号
intI = intI + 1
MsHFlexGrid的,在插入数据时,
For i = 1 To rs.PageSize
With MSHFlexGrid1
.Rows = .Rows + 1
.Row = i
.Col = 0
.Text = CStr(i)
.Col = 1
.Text = rs!姓名
End With
rs.MoveNext
If rs.EOF Then Exit For
Next