尝试在VBA中控制另一个数据库时发生间歇性错误

I have the following code:

我有以下代码:

Dim obj As New Access.Application
obj.OpenCurrentDatabase (CurrentProject.Path & "\Working.mdb")
obj.Run "Routine"
obj.CloseCurrentDatabase
Set obj = Nothing
Dim obj