Dim strDB As String'数据库完整地址
Dim rs As Recordset'记录集
Dim appAccess As Access.Application
strDB = "E:\数据库名称.mdb"
Set appAccess = CreateObject("Access.Application")
appAccess.OpenCurrentDatabase strDB
'这里可以用docmd.openForm 等.....
Set rs = appAccess.CurrentDb.OpenRecordset("Select * from 表名称")
rs.MoveNext
MsgBox rs.RecordCount
rs.close
set rs=nothing
appAccess.CloseCurrentDatabase
