使用dao访问:
先引用dao3.51或更高版本
dim Db as database
set Db= opendatabase (access完整文件名)
使用ado
先引用ado2.0或更高版本
dim cn as connection
dim rs as recordset
set cn=new connection
set rs=new recordset
Cn.ConnectionString = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & App.Path & "\" & access完整文件名
Cn_SQL.Open
rs.open "select * from 表",cn,3,2
rs为access数据库中表的记录集
(完)