如何得到access的列表框一行（各列）的数据？

[sjd163]

如何得到access的列表框一行（各列）的数据？

[笨笨兔兔兔兔兔]

ado field

[sjd163]

详细点我是菜鸟。

[tztz520]

Private Sub Command2_Click()
Dim db As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim i As Integer

db.ConnectionString = "provider=microsoft.jet.oledb.4.0;" & "data source=" & App.Path & "\dev.mdb"
db.Open
rs.CursorLocation = adUseClient
rs.Open "select * from tablename", db

rs.Move 2 '第二行的信息
For i = 0 To rs.Fields.Count - 1
Debug.Print rs.Fields(i).Value '每一列的值
Next i

End Sub

[笨笨兔兔兔兔兔]

For i = 0 To rs.Fields.Count - 1
Debug.Print rs.Fields(i).Value '每一列的值
Next i

就是这个fields集合,其实ADO都是一样的

需要详细说明的请发短消息,我现在还没想在VB版抢分的说

[sjd163]

我现在的制作停留在表层
如不使用recordset对象
致用list0.的属性怎么做呢