[求助]：请高手帮我看看我的l错误是什么原因!

laoxie_1983

这是一个连接数据库的lisp
运行时总时提示什么;Automation 错误。未提供说明。我对这方面不是太了解求高手指点!
(defun LoadAdo( / gADO-DLLpath )
　　　　(vl-load-com) ;装载ActiveX
　　　　(setq acadObj (vlax-get-acad-object)
　　　　　　　acadDoc (vla-get-ActiveDocument acadObj)
　　　　gADO-DLLpath "c:\\program files\\common files\\system\\ado\\msado15.dll")
　　(if (null ado-adOpenDynamic)
　　(vlax-import-type-library
　　　　:tlb-filename gADO-DLLpath
　　　　:methods-prefix "ado-"
　　　　:properties-prefix "ado-"
　　　　:constants-prefix "ado-"
　　　　) ;装载ADO Library
　　)
　　(setq ADOConnect (vlax-create-object "ADODB.Connection")) ;创建全程变量ADOConnect
　　(setq wsPath (vlax-get-property
　　　　　　　　　　(vlax-get-property
　　　　　　　　　　　　　(vlax-get-property
　　　　　　　　　　　　　　　　　　(vlax-get-acad-object)
　　　　　　　　　　　　　"Preferences"
　　　　　　　　　　　)
　　　　　　　　　　"Files"
　　　　　　　　　　　)
　　　　　　　　　　"WorkspacePath"
　　　　　　　)
　　　　　name ( getvar "dwgname")
　　　　　len (strlen name)
　　　　　name (substr name 1 (- len 3))
　　　　　name (strcat name "udl")
　　adoString (strcat "File Name=" wsPath "\\" name ";User ID=;Password=;" )
　　) ;取数据源udl文件路径
　　(vlax-put-property ADOConnect "ConnectionString" adoString)
　　; ADOConnect 将 name.mdb 连接到name.udl文件
　　(vlax-invoke-method ADOConnect "Open" adoString "" "" -1)
　　); end LoadAdo