求一个实例，找了很久没找着，自己想又想不明白
用rs.Open查出了a表的所有数据（如下），然后用Listview显示全部数据的实例代码（也就是下面一大片空白的地方应写的代码）。如果你有请让我看看好吗？Private Sub Command1_Click()
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim spl As String
Set cn = New ADODB.Connection
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=F:\VBP\shop.mdb;Persist Security Info=False"
spl = "select * from a"
Set rs = New ADODB.Recordset
rs.Open spl, cn, adOpenForwardOnly, adLockOptimistic
cn.Close
Set cn = Nothing
End Sub
补充一下：
a表有：ID , NA , TE 三个字段
补充：VB , 基础类
