如果使用的数据库是Access97,引用:
    Microsoft DAO 3.51 Object Library
如果使用的数据库是Access2000,引用:
    Microsoft DAO 3.6 Object LibraryDim objDB as Database
dim objRS as Recordset
    Set objDB=OpenDatabase(数据库存放路径)
    Set ObjRS=ObjDB.OpenRecordset("Select * From [表名]")