Dim app As Access.Application ' app 定义为一个APPLICATION
Set app = CreateObject("access.Application.9") ' app 为一个ACCESS
app.OpenCurrentDatabase "D:\促销产品管理\mas数据导入.mdb", True ' 打开APP的一个数据库
'app.Visible = False ' 让这个数据库可见（一般默认是不可见的）