[求助]在一个ACCESS中打开另一个ACCESS程序

Y9X

henry曾在http://www.office-cn.net/forum.php?mod=viewthread&tid=69453&highlight=%C6%F4%B6%AF%CD%E2%B2%BF就这个问题指导过我。

现在我在实用中发现调用另个ACCESS程序时，屏幕上只是闪了一下，没有看见最终打开，我复制了他给的代码仅修改了路径，可是结果却完全不一样，不知道怎么回事，麻烦路过的高手再指导一下，谢谢。
以下是原来提供的代码
Private Sub Label4_Click()
    Dim strPath As String
    strPath = CurrentProject.Path & "\C.mdb"
    Set appAccess = CreateObject("Access.Application")
    appAccess.OpenCurrentDatabase strPath
    appAccess.Visible = True
End Sub

以下是我复制修改后的代码
Private Sub Label0_Click()
Dim strPath As String
    strPath = CurrentProject.Path & "\A.mdb"
    Set appAccess = CreateObject("Access.Application")
    appAccess.OpenCurrentDatabase strPath
    appAccess.Visible = True
End Sub

Y9X

henry,你在不在这里？可否帮忙看看呢，谢谢。

Y9X

谁还能教我下呢？不甚感激

Y9X

急死了，这个问题谁能帮帮忙，教一下呢

Y9X

有没有人看见我的帖子呢，谁能教一下