dim conn as new adodb.connection
dim rs as new adodb.recordset
dim sql as string
conn.open "driver={microsoft access driver (*.mdb)};uid=;pwd=;dbq="amp; app.path amp; "/xxx.mdb"
sql="select * from 表名"
rs.open sql,conn, adOpenForwardOnly, adLockReadOnly
这样就可以读取数据了。例如循环读取数据
假设有字段a,b,c
那么代码如下(接上面)
while not rs.eof
print rs("a")
print rs("b")
print rs("c")
rs.movenext
wend
这样就可以在form上打印出来数据了