Загрузка в 1С из access

Процедура ЗагрузкаИзAccess() Экспорт

	//СтрокаПодключения = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" + ФайлДляЗагрузки + "; Extended Properties=""Excel 8.0;HDR=NO;""";
	СтрокаПодключения  = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" + ФайлДляЗагрузки + ";""";
	Connection = Новый COMОбъект("ADODB.Connection");
	Попытка
		Connection.Open(СтрокаПодключения);
	Исключение
		Сообщить(ОписаниеОшибки());
		Возврат;
	КонецПопытки;
	Command = Новый COMОбъект("ADODB.Command");
	
	Command.ActiveConnection = Connection;
	Command.CommandText = "S_elect * FROM Table1";
	Command.CommandType = 1;
	RecordSet = Новый COMОбъект("ADODB.RecordSet");
	RecordSet = Command.Execute();
	стр ="";
	Пока RecordSet.EOF() = 0 Цикл
		для н=0 по  Recordset.Fields.Count -1 цикл
			стр = стр + " " + Recordset.Fields(н).Value;
		КонецЦикла;
		Сообщить(стр);
		стр ="";
		RecordSet.MoveNext(); 
	КонецЦикла;
	RecordSet.Close();
	Connection.Close();

КонецПроцедуры