sorry,还有错,忘记移动记录了
set conn = New ADODB.Connection
set rs = New ADODB.Recordset
conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\mdb1.mdb;Mode=ReadWrite;Persist Security Info=False"
rs.open "select 字段名 from 表",conn
do while not rs.eof
listbox.Additem rs("字段名")
rs.movenext
loop
set conn = New ADODB.Connection
set rs = New ADODB.Recordset
conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=mdb1.mdb;Mode=ReadWrite;Persist Security Info=False"
rs.open "select 字段名 from 表",conn
do while not rs.eof
listbox.Additem rs("字段名")
loop