请各位叔叔大爷帮帮解决一个小程序

我有两个数据库A和B，现在打开A库的A11窗体，双击一个控件后希望打开B库中的B11窗体，并让数据记录定位与A11窗体记录相同，我用的代码是：
   Dim objappAccess As New Access.Application
     Dim strCN As String
     strCN = "病历号 = [forms].[A11].[病历号]"
If AccessObject("B.mdb").IsLoaded = True Then
    GoTo opdjgx
Else
     objappAccess.OpenCurrentDatabase "F:\Case\B.mdb"
    GoTo opdjgx
End If
opdjgx:
    objappAccess.DoCmd.OpenForm "B11", , , strCN

1.以上代码表现为打开了B库的B11窗体，但数据不认strCN，我理解是两个库strCN并不通用，不知是否理解正确，如何解决？
2.如何判定B库已打开，不需再次打开？

多谢各位老师指导一下