Построение строки соединения в диалоговом режиме

(defun ru-ado-build-connection-string ( / srv result)
;;; Построение ConnectionString
;|
Пример:
(ru-ado-build-connection-string)
"Provider=Microsoft.Jet.OLEDB.4.0;
Data Source=C:\Program Files\Microsoft Office\Office\Samples\Борей.mdb;
Persist Security Info=False"
(ru-ado-build-connection-string)
"FILE NAME=C:\Program Files\Common Files\SYSTEM\ole db\Data Links\DBDEMOS.udl"

|;
  (if (setq srv (vlax-get-or-create-object "ruADOConnSvr.ConnStrConstructor"))
    (setq result (vlax-invoke-method
                   srv
                   "Execute"
                 ) ;_ end of vlax-invoke-method
    ) ;_ end of setq
    (princ "
Не удалось запустить ruADOConnSvr.ConnStrConstructor")
  ) ;_ end of if
  result
) ;_ end of defun