【数据库】把ACCESS数据库中的表显示在LISTBOX上

Private Sub Form_Load()
    Set conn = New ADODB.Connection
    conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=数据库路径;Jet OLEDB:Database Password=数据库密码;"
    Set rs = New ADODB.Recordset
    rs.Open "select top 100 * from 表名 ", conn, 0, 1    '只读模式
    Do Until rs.EOF     '判断是否到游标最下边
        list1.AddItem rs(1).Value    '列举数据库中第二列的值
        rs.MoveNext     '游标下移
    Loop
    rs.Close
    conn.Close
End Sub