Открыта=AutomationСервер.Connect("File="+СтрокаПодключения+";");

подскажите правильно как, не хватает пользователя? пароля нет, пользователь Администратор, строкаПодключения - путь к базе

никто не напомнит?

а погуглить?

или пример во встроенной справке глянуть...

Ну и Application юзать - это зло.

не переменные не обращай внимания итак понятно что они означают, у вас возможно свои флаги

   Если DComDBServer Тогда
       DComDBDComDBServerName = DComDBStruct.DComDBServerName;
       DComDBDComDBName       = DComDBStruct.DComDBName;
       СтрокаСоединения="Srvr="""+СокрЛП(DComDBDComDBServerName)+"""; Ref="+СокрЛП(DComDBDComDBName)+";";
   Иначе
       DComDBDComDBFilePath=DComDBStruct.DComDBFilePath;
       ФайлНаДиске = Новый Файл(DComDBDComDBFilePath);   // Проверим существует ли каталог базы
       Если НЕ ФайлНаДиске.Существует() Тогда
           Сообщить("Внимание! Каталог внешней базы данных """+DComDBDComDBFilePath+""" недоступен!");
           Возврат Неопределено;
       КонецЕсли;
       СтрокаСоединения="File="""+СокрЛП(DComDBDComDBFilePath)+""";";
   КонецЕсли;
       
   Если Не DComDBStruct.DComDBUseOSAuthentication Тогда
       СтрокаСоединения = СтрокаСоединения+" Usr="""+СокрЛП(DComDBUser)+""";"+?(СокрЛП(DComDBUserPassword)="", "", " Pwd="""+СокрЛП(DComDBUserPassword)+""";");
   КонецЕсли;
   
   Состояние(DComDBTextProces + "Application", 20);
   
   Попытка
       Если DComDBStruct.DComDB81 Тогда
           DComDBConnect = Новый COMОбъект("V81.Application");
       Иначе
           DComDBConnect = Новый COMОбъект("V82.Application");
       КонецЕсли;
   Исключение
       Сообщить(ОписаниеОшибки()+". Проверьте настройки DCom для """+?(DComDBStruct.DComDB81, "V81.Application", "V82.Application")+""" на локальном компьютере.");
       Возврат Неопределено;
   КонецПопытки;
   
   Состояние(DComDBTextProces + "Connect", 50);
       
   Попытка
       DComDBConnect.Connect(СтрокаСоединения);
       DComDBConnect.Visible = Ложь;
   Исключение
       Сообщить(ОписаниеОшибки(), СтатусСообщения.Важное);
       Возврат Неопределено;
   КонецПопытки;