数据库中的某一张表的所有字段与ListView控件的表头相同。那么：我要把数据库中的所有信息在ListView控件中显示出来。
For i = 0 To Adodc1.Recordset.Fields.Count - 1
？？？？？？？？？？？？？？？？？？？？ = Adodc1.Recordset.Fields(i).Value
End If

高手请提点~

Dim head As ColumnHeader, Item As ListItem
lv.ListItems.Clear
lv.ColumnHeaders.Clear

For i = 0 To rs.Fields.Count - 1 '写表头
Set head = lv.ColumnHeaders.Add
head.Text = rs.Fields(i).Name
Next

While Not rs.EOF ＇读取记录
Set Item = lv.ListItems.Add
Item.Text = "" & rs.Fields(0).Value
For i = 1 To rs.Fields.Count - 1
Item.SubItems(i) = "" & rs.Fields(i).Value
Next
rs.MoveNext
Wend

listView1上显示多行记录后，我选中了一行，针对这一行记录的右键事件怎么写啊，我也不知道怎么说
就是选定这一行后，右击就会弹出菜单吧。
怎么弄。
Private Sub ？？？？？？(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then
PopupMenu txm, , X + PicBack(0).Left + ListV.Left, Y + PicBack(0).Top + ListV.Top '
End If
End Sub
注意：并不是在针对listView1界面的右键事件，而是针对listView1中显示的某一条记录的右键事件