Access用代码打开另一个Access文件

在Access开发中，我们有时会调用其他数据库的函数，做成多层架构。

首先是如何用代码打开另外的Access数据文件？

这里我们通过CreateObject 函数来打开mdb(accdb)文件

Public Sub openAccess()
    Dim acc As Access.Application
    Set acc = CreateObject("access.Application") '
    acc.OpenCurrentDatabase "C:\Documents and Settings\Administrator\桌面\罗斯文1.accdb", True ' 打开APP的一个数据库
    
End Sub

运行代码效果图