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