vb6中listbox如何绑定数据库？

Question

我在vb６中用listbox通过adodc绑定access数据库，但是运行却在list中不能显示任何东西，请问这是怎么回事？lisi的绑定到底作用是什么，如何使用？
我的本意是在list中列出access中绑定字段的内容．

Answer 1

Option ExplicitPublic Rs As New ADODB.Recordset
Public Conn As New ADODB.ConnectionPrivate Sub Form_Load()
 Dim StrConn As String
 Dim i As Integer
 
 StrConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Test.mdb;Persist Security Info=False"
 
 Conn.CursorLocation = adUseClient
 Conn.Open StrConn
 
 If Rs.State <> adStateClosed Then Rs.Close
 Rs.Open "select * from Man", Conn, adOpenStatic, adLockOptimistic
 
 For i = 1 To Rs.RecordCount
   List1.AddItem Rs("Name")
   Rs.MoveNext
 Next i
 
End Sub

Answer 2

dim rs as new adodb.recordset
set rs=new adodb.recordset
rs.open "select * from [ss]",conn,1,3
if rs.RecordCount<>0 then
   for i=1 to rs.RecordCount
    list1.AddItem rs.Fields("邦定字段名")
   next
end if
set rs=nothing

Answer 3

dim rs as new adodb.recordset
set rs=new adodb.recordset
rs.open "select * from [ss]",conn,1,3
set list1.datasource=rs
list1.datafield="绑定字段"