Microsoft.Jet.OLEDB.4.0 в 1С не работает, а в Excel всё ок.

Функция ВыполнитьЗапросКБазе(СтрокаЗапроса)       Экспорт
	Соединение = Новый ComObject("ADODB.Connection");      
    Соединение.ConnectionTimeout = 600;		
	Соединение.CursorLocation = 3;
	Попытка     
		Соединение.Open("Provider=Microsoft.Jet.OLEDB.4.0;" +
		               "Data Source=" + КаталогИБ() + ";" +
					   "Extended Properties=""DBASE IV;"";"); 
		Соединение.CursorLocation = 3;					   
	Исключение     
		Сообщить("Невозможно установить соединение",СтатусСообщения.Важное);     
		Соединение=0;     
		Возврат -1;
	КонецПопытки;	
	
	Команда = Новый COMОбъект("ADODB.Command");
	Команда.ActiveConnection = Соединение;
	//текст команды - SQL запрос. Имя таблицы, в которой идет выборка это имя dbf файла без расширения
	Команда.CommandText  = СтрокаЗапроса;
	
	
	НаборЗаписей = Команда.Execute();
	Возврат НаборЗаписей; //перебор записей, пусть, например, в dbf-е есть поле Name    
	

Dim cn As New ADODB.Connection, rs As New ADODB.Recordset
Const cstrBase As String = "E:\1С_Bases\Суховей 2019 (8.2)\" 'Директория с файлами базы данных
With cn
    .Provider = "Microsoft.Jet.OLEDB.4.0;"
    .ConnectionString = "Data Source=" & cstrBase & ";Extended Properties=dBase IV"
    .Open
    Set rs = .Execute("SEL ECT * FR OM logist") ' InvN - одно из полей таблицы Invoices (файл Invoices.dbf)
   Cells(1, 1).CopyFromRecordset rs
    .Close
End With