[5分]用VBA设置另一个数据库(access2007版本)的"选项"问题求助

如下代码,目的是设置另一个数据库(access2007版本)的"选项",运行到**部分出现"找不到属性"的提示,如何解决?

Dim Xmlname, Xml, DbPath, strFileName

dim oApp as Access.Application

Xml = DLookup("RibbonXml", "Ribbon")
    Xmlname = DLookup("RibbonName", "Ribbon")
    DbPath = "另一个数据库的完全路径"

    Set oApp = New Access.Application
    With oApp
        .Visible = True
        .OpenCurrentDatabase DbPath, True, "mima"
        .CurrentDb.Properties("StartUpForm") = "启动"  '成功执行
        .CurrentDb.Properties("CustomRibbonID") = "自定义功能区" '错误"找不到属性",如何解决?
    End With
    Set oApp = Nothing