VB 问题，高手 帮忙 谢谢！

AdoRs.Open "select * from H_FJSZ order by 名称", Cnn, adOpenKeyset
If AdoRs.RecordCount > 0 Then
ListView1.ListItems.Clear
AdoRs.MoveFirst
For i = 1 To AdoRs.RecordCount
Set Str_SubItems = ListView1.ListItems.Add()
With Str_SubItems
.Text = AdoRs!名称
AdoRs.MoveNext
End With
Next i
End If
AdoRs.Close

图片怎么调用，我表里面还有一个 "数字"字段 用来调用 ImageList1 的图片序号
我是想要在 Listview 中显示图片，当 数字是 1 和数字 2 的 显示的图片不一样，ImageList里面一共有10张图片。
Private Sub XS()
ListView1.ListItems.Clear
AdoRs.Open "select * from H_FJSZ order by FJHM", cnn, adOpenKeyset
If AdoRs.RecordCount > 0 Then
ListView1.ListItems.Clear
AdoRs.MoveFirst
For i = 1 To AdoRs.RecordCount
ListView1.ListItems.Add , , AdoRs.Fields("FJHM"

VB高手帮忙解决下问题。谢谢。 vb问题，高手帮忙下，谢谢了 帮忙啊VB问题~~谢谢 VB高手来帮忙啊，谢谢 麻烦VB高手帮忙做几道题，谢谢！！ vb问题不明白（高手帮忙...等） VB二级考试问题，高手帮忙啊！ vb打包问题 高手帮忙啊 关于VB的问题 望高手帮忙 vb access 问题，高手请帮忙~~！