[求助]lisp打开access文件

cjs

大家帮我看看，为什么这句 (vlax-invoke-method   acapp 'openCurrentDatabase "F:\\kkp.mdb" )

老是出错，

(if (equal nil ac-acadd)
    (vlax-import-type-library
      :tlb-filename tlbfile    :methods-prefix   "am-"
      :properties-prefix    "ap-"      :constants-prefix
      "ac-"
     ) ;_ 结束vlax-import-type-library
 ;_ 结束vlax-import-type-library
      ) ;_ 结束if

(setq acapp nil       ) ;_ 结束setq

(setq acapp (vlax-get-or-create-object "Access.Application")
 )
  (vla-put-visible acapp 1)

(vlax-invoke-method   acapp 'openCurrentDatabase "F:\\kkp.mdb" )

;;(am-openCurrentDatabase acapp "F:\\kkp.mdb" )

用(am-openCurrentDatabase acapp "F:\\kkp.mdb" )会提示没有此函数

cjs

在access vba里opencurrentdatabase就是直接在application下调用的，我觉得这么写不应该出错啊，调用其它的方法是可以的，唯独opencurrentdatabase和newcurrentdatabase不行，大家帮忙看看