Access = Новый COMОбъект("ADODB.CONNECTION");

Попытка
СтрокаПодключения="Driver={Microsoft Access Driver (*.mdb)};Dbq=" + ИмяФайла + ";Uid=Admin;Pwd=";
Access.Open(СтрокаПодключения);
Исключение
Сообщить("Все плохо:"+ОписаниеОшибки());
Возврат;
КонецПопытки;

Если ИмяФайла="" Тогда
Предупреждение ("Не заполнено имя файла!");
Возврат;
КонецЕсли;

НаборЗаписей = Новый COMОбъект("ADODB.RecordSet");
НаборЗаписей.Open("SELECT * FROM TABLE;",Access,2,3,);

Попытка
НаборЗаписей.MoveFirst();
Исключение //нет записей в рекордсете
НаборЗаписей.Close();
Возврат;
КонецПопытки;

Пока НаборЗаписей.EOF()=0 Цикл

НовыйЭлемент = Справочники.СотрудникиОрганизаций.СоздатьЭлемент();

НовыйЭлемент.Наименование = НаборЗаписей.Fields("FAM").Value;
НовыйЭлемент.Код =Формат(НаборЗаписей.Fields("TabNomer").Value,"ЧГ=0");

НовыйЭлемент.Записать();

НаборЗаписей.MoveNext();
КонецЦикла;

Из 1С в Access

Для каждого строка из ТЗ Цикл
НаборЗаписей.AddNew();
НаборЗаписей.Fields("KOD").Value = строка.Код;
НаборЗаписей.Fields("NAME").Value = строка.Наименование;

НаборЗаписей.update();
КонецЦикла;