Акцесс = СоздатьОбъект( "ADODB.CONNECTION" );
Попытка
     СтрокаПодключения= "Driver={Microsoft Access Driver (*.mdb)};Dbq=C:\base.mdb;Uid=Admin;Pwd=" ;
     Акцесс.Open(СтрокаПодключения);
Исключение
     Сообщить( "Все плохо:" +ОписаниеОшибки());
     Возврат;
КонецПопытки;
Команда = СоздатьОбъект( "ADODB.Command" );
Команда.ActiveConnection=Акцесс;
ТекстСелект =  "SELECT * FROM tblCustoms" ;
НаборЗаписей = СоздатьОбъект( "ADODB.RecordSet" );
Команда.CommandText=ТекстСелект;
Попытка
     НаборЗаписей=Команда.Execute;
Исключение
     Сообщить( "Обломись:" +ОписаниеОшибки());
КонецПопытки;
Попытка
     НаборЗаписей.MoveFirst();
Исключение //нет записей в рекордсете
     НаборЗаписей.Close();
     Возврат;
КонецПопытки;
Пока НаборЗаписей.EOF()= 0  Цикл
     ИНН = НаборЗаписей.Fields( "INN" ).Value;
     //ну и т.д.
     НаборЗаписей.MoveNext();
КонецЦикла;
НаборЗаписей.Close();

Процедура ACCESS()
     dbe=CreateObject( "DAO.DBEngine.36 ");
     wksp=dbe.Workspaces( 0 );
     db= 0 ;
     // в ковычках имя фаила с расширением MDB
     Если ФС.СуществуетФайл(КаталогПользователя()+ "sr.mdb" )= 0  Тогда
          // создание файла базы данных с русским порядком сортировки
          db=wksp.CreateDataBase(КаталогПользователя()+ "mars_sr.mdb" , ";LANGID=0x0419;CP=1251 ;COUNTRY= 0 ");
          // DDL - запрос на создание таблицы
          // описание языка DDL (подмножество SQL) смотрите в хелпе по MS Access
          // не пытайтесь делать это с другими форматами - DDL через DAO поддерживается только для MDB
          //Создадим еще таблицу
          db.Execute( "CREATE TABLE   BANKS
          |(REC_IND INTEGER,
          |BANKCODE INTEGER,
          |BANKNAME  TEXT  ,
          |ModifiedFlg BIT,
          |ChangeSeqFlg BIT);" 
          );
          // индекс на нужные поля
          db.Execute( "CREATE INDEX REC_IND ON BANKS (REC_IND);" );
     Иначе
          // просто открываем базу данных в разделенном режиме
          db=wksp.OpenDataBase(КаталогПользователя()+ "sr.mdb" );
          // и очищаем имеющиеся данные
          db.Execute( "DELETE * FROM BANKS ;" );
    КонецЕсли;
    // rs-это как раз сама таблица, куда мы будем добавлять записи
    rs=db.OpenRecordset( " BANKS " );
    // добавление записи
    rs.AddNew();
    // присвоение значений полям
    rs.REC_IND            =      "1 ";
    rs.BANKCODE       =      "34 ";
    rs.BANKNAME       =     "Инвест" ;
    rs.ModifiedFlg        =      "1 ";
    // запомним запись
    rs.Update();
    // и так далее ...
    db.Close();  // закрытие базы данных
КонецПроцедуры