Подключение к *.fbd

При подключении возникает какая-либо ошибка?

{Форма.Основная.Форма(20)}: Ошибка при вызове метода контекста (Open)
БД_0.Open();
по причине:
Произошла исключительная ситуация (ADODB.Connection): Не удается найти указанный поставщик. Вероятно, он установлен неправильно.



БД_0.Provider = "LCPI.IBProvider";
стрПодключения = "data source="+СокрЛП(ЭлементыФормы.ПутьКБазе.Значение)+";user ID=SYSDBA;password=masterkey;ctype=win1251;auto_commit=false";
БД_0.ConnectionString = стрПодключения;
БД_0.Open();
БД_0.BeginTrans();
Запрос.ActiveConnection = БД_0;

Запрос_0.ActiveConnection = БД_0;
КМД_0.ActiveConnection = БД_0;
Запрос_1.ActiveConnection = БД_0;
КМД_1.ActiveConnection = БД_0;
Запрос_2.ActiveConnection = БД_0;
КМД_2.ActiveConnection = БД_0;

Запрос.Open("SEL ECT DS_ID, SELECT_SQL, UPDATE_SQL, INSERT_SQL, DELETE_SQL FR OM FIB$DATASETS_INFO order by DS_ID");
ТаблицаЗапросов.Очистить();
Пока Запрос.Eof()=0 Цикл
строка = ТаблицаЗапросов.Добавить();
строка.ИД = Запрос.Fields("DS_ID").Value;
ТекстЗапроса = Запрос.Fields("SELECT_SQL").Value;
строка.Выбрать = ТекстЗапроса;
ТекстЗапроса = Запрос.Fields("UPDATE_SQL").Value;
строка.Изменить = ТекстЗапроса;
ТекстЗапроса = Запрос.Fields("INSERT_SQL").Value;
строка.Вставить = ТекстЗапроса;
ТекстЗапроса = Запрос.Fields("DELETE_SQL").Value;
строка.Удалить = ТекстЗапроса;
Запрос.MoveNext();
КонецЦикла;
Запрос.Close();

Все верно установлено.

Сижу, колдую.

ПутьКФайлу = "D:\base.FDB";
АдресСервера= "192.168.0.1";
Соединение = Новый COMОбъект("ADODB.Connection");
Соединение.ConnectionString = "driver=Firebird/InterBase® driver; Dialect=3; CHARSET=NONE; Uid=SYSDBA;Pwd=masterkey;Dbname="+ПутьКФайлу;
Соединение.ConnectionTimeOut = 1200;
Соединение.CursorLocation = 3;
Попытка
Соединение.Open(Соединение.ConnectionString);
Исключение
Предупреждение("Невозможно установить соединение с базой"+ОписаниеОшибки());
Возврат Неопределено;
КонецПопытки;