从另一个Access DataBase中的子例程调用sub

Question

我正在尝试从名为DB2.accdb的另一个数据库中的另一个子例程调用名为DB1.accdb的数据库中的子例程。

我在DB2.accdb中编写以下代码：

Dim appAccess As Access.Application
Set appAccess = CreateObject("Access.Application")
appAccess.OpenCurrentDatabase ("DB1.accdb")
appAccess.Run "mysubrutine"

当我执行代码时，我获得以下错误消息：

  

运行时错误＆＃39; 40351＆＃39;：方法＆＃39;运行＆＃39;对象＆＃39; _Application＆＃39;失败。

mysubrutine在第二个数据库中编写如下：

Public sub mysubrutine()
A = 2 + 2
End sub

我在VBA中使用的引用是 Microsoft Access 15.0对象库