登录盟威Access快速开发平台V2.4.5版(64位)的main.accdb错误

登录盟威Accsse快速开发平台V2.4.5版(64位)的main.accdb后，显示“当前页面的脚本错误”，

Private Sub Form_Load()
    On Error GoTo ErrorHandler


    If Val(Application.Version) > 11 Then
        Const acHorizontalAnchorBoth = 2
        Const acVerticalAnchorBoth = 2
        
        Me.ocxBanner.Properties!HorizontalAnchor = acHorizontalAnchorBoth
        Me.lblNodePath.Properties!HorizontalAnchor = acHorizontalAnchorBoth
        Me.sfrChild.Properties!HorizontalAnchor = acHorizontalAnchorBoth
        
        Me.ocxTreeMenu.Properties!VerticalAnchor = acVerticalAnchorBoth
        Me.sfrDivision.Properties!VerticalAnchor = acVerticalAnchorBoth
        Me.lblResize.Properties!VerticalAnchor = acVerticalAnchorBoth
        Me.linDivLine1.Properties!VerticalAnchor = acVerticalAnchorBoth
        Me.linDivLine2.Properties!VerticalAnchor = acVerticalAnchorBoth
        Me.sfrChild.Properties!VerticalAnchor = acVerticalAnchorBoth
    End If
    
    DoCmd.Maximize
    Form_Resize


    Me.KeyPreview = True
    If Not Me.ocxTreeMenu.Visible Then Me.ocxTreeMenu.Visible = True
    Me.sfrChild.SetFocus


    With Me.sfrTimer_RepeatedLogin.Form
        .TimerIndex = "Repeated Login"
        .TimerInterval = GetParameter("Repeated Login Check Interval", dbLong, 0, , , True) * 1000
    End With
    With Me.sfrTimer_AutoExitTime.Form
        .TimerIndex = "Auto Exit"
        .TimerInterval = GetParameter("Auto Exit Time", dbLong, 0, , , True)
    End With
    
    LoadHomePageBanner Me, Me.ocxBanner.Object


    If GetParameter("Auto Exit Time", dbLong, 0) > 0 Then
        Me.TimerInterval = 60000
    End If


    Me!Username = GetParameter("Current User Username")
    Me!Nickname = GetParameter("Current User Nickname")
    Me!RoleID = GetParameter("Current User RoleID")
    Me!RoleName = GetParameter("Current User RoleName")
    Me!LoginID = GetParameter("Current User LoginID")
    
    Me.lblNodePath.Visible = GetParameter("Embedded Child Window", dbBoolean, True)
    Me.lblResize.Left = GetParameter("Tree Menu Width", dbLong, 4000, 0)


    LoadNavTree
    
    Dim strDefaultMenuID As String
    If Nz(Me.OpenArgs) Like "Default Menu:#*" Then
        strDefaultMenuID = RunDefaultRDPNavMenu(Mid(Me.OpenArgs, 14))
        If strDefaultMenuID <> "" Then
            mclsNavTree.SetFocus "K" & strDefaultMenuID
            Me.lblNodePath.Caption = mclsNavTree.GetNodeFullPath(strDefaultMenuID, " > ")
        End If
    Else
        If Not GetParameter("Stop Confirm When Close Main Form", dbBoolean, False) Then
            strDefaultMenuID = RunDefaultRDPNavMenu()
            If strDefaultMenuID <> "" Then
                mclsNavTree.SetFocus "K" & strDefaultMenuID
                Me.lblNodePath.Caption = mclsNavTree.GetNodeFullPath(strDefaultMenuID, " > ")
            End If
        End If
    End If
    DoCmd.SelectObject acForm, Me.Name
    
ExitHere:
    DoCmd.Hourglass False
    Exit Sub
        
ErrorHandler:
    RDPErrorHandler Me.Name & ": Sub Form_Load()"
    Resume ExitHere
End Sub
这段代码问题，谁能帮助检查一下，谢谢