VB技术问题

Private Sub Form_Load()
Dim cnn As New ADODB.Connection
Dim rs As New ADODB.Recordset
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db1.mdb;"
ListView1.View = lvwIcon
ListView1.ListItems.Clear
rs.Open "select * from 酒店信息", cnn, adOpenKeyset, adLockOptimistic
If rs.RecordCount > 0 Then
zs = rs.RecordCount
rs.MoveFirst
Do While rs.EOF = False
ListView1.ListItems.Add , , "(" & rs.Fields("酒店名称") & ")", 1
rs.MoveNext
Loop
End If
rs.Close

End Sub

我想问的是，我选择ListView1中项目，在傍边的TEXT显示相应的信息。。
要是 问的不够详细，，请加 我QQ：76270963
帮我解答，，谢谢，，，

VB技术问题 什么是VB编程技术 VB Combo技术 关于VB和PLC技术 技术问题 技术问题? 技术问题````````` 技术问题!!!! vb问题????? VB问题~~~