Ошибка adodb connection установлен неправильно

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

Ранее работало, что-то изменилось в компе, уже не припомню .. Что пробовал:

1. разные строки подключения —

Connection = Новый COMОбъект(«ADODB.Connection»);

    СтрокаПодключения = «Provider=Microsoft.Jet.OLEDB.4.0; Data Source = » + Файл +

        «; Extended Properties = «»Excel $ver$.0;HDR=YES;IMEX=1″»;»;

    СтрокаПодключения12 = «Provider=Microsoft.Jet.OLEDB.4.0; Data Source = » + Файл +

        «; Extended Properties=»»Excel 12.0 Xml;HDR=YES;IMEX=1″»;»;

      СтрокаПодключенияACE = «Provider=Microsoft.ACE.OLEDB.12.0;Data Source= » + Файл +

        «;Extended Properties=»»Excel 12.0;HDR=YES;IMEX=1;»»»;        

    
    Попытка

        Connection.Open(СтрокаПодключения12);

    Исключение

        Попытка

            Connection.Open(СтрокаПодключенияACE);

        Исключение

            
            Для Версия = 8 По 16 Цикл

                //подключение к источнику данных

                ТекСтрокаПодключения = СтрЗаменить(СтрокаПодключения, «$ver$», Строка(Версия));

                Попытка

                    Connection.Open(ТекСтрокаПодключения);

                Исключение

                    ОписаниеОшибки = ОписаниеОшибки();

                КонецПопытки;

            КонецЦикла;              

        КонецПопытки;          

    КонецПопытки;

2. переустанавливал OFFICE 32/64 бит

что за «Не удается найти указанный поставщик. Вероятно, он установлен неправильно.» ???

Attribute VB_Name = «NewMacros»

Sub REPORT_FOR_COUNTING()
Dim Conn As New ADODB.Connection, Cmd As ADODB.Command, rsOra As ADODB.Recordset
Conn.Open «PROVIDER=OraOLEDB.Oracle.1;DATA SOURCE=SVBO;USER ID=ADMIN_ILLARION;PASSWORD=M1l2w3»
Set Cmd = New ADODB.Command
Cmd.ActiveConnection = Conn
Cmd.CommandType = adCmdText
Set rsOra = New ADODB.Recordset
rsOra.CursorLocation = adUseServer

rsOra.Open «select POS_COUNT from REPORT_FOR_COUNTING where INST_ID=’9001′», Conn, adOpenForwardOnly
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = «ГаграПос»
.Replacement.Text = rsOra.Fields.Item(0).Value
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute
Selection.TypeText Text:=rsOra.Fields.Item(0).Value
rsOra.Close

End Sub