//***************** функции в ГМ *********************
Функция ВключитьМусю(соединение,командник,вопль= 1 ) экспорт
	перем строчка;
	перем темп;
	Состояние( "Подключаюсь к Мусе..." );
	строчка =  "DATABASE=" +имябазыданных+
	 ";UID=" +пользовательвмускуле+
	 ";PWD=" +парольпользователя+
	 ";DSN=КакПроописанВОДБЦ" ;
	
	соединение = СоздатьОбъект( "ADODB.Connection" );
	try
		соединение.Open(строчка);
	except
		ЗаписьЖурналаРегистрации(ОписаниеОшибки());
		Если вопль =  1  тогда
			Предупреждение( "Невозможно установить соединение с Мусей !" );
		конецесли;
		возврат  0 ;
	EndTry;
	командник = СоздатьОбъект( "ADODB.Command" );
	командник.ActiveConnection = соединение;
	возврат  1 ;
конецфункции
// --------------------------------------------
 
Функция СКЛ(командник,строчка,выборка= "",вопль=1 ) экспорт
	командник.CommandText = строчка;
	try
		Если ТипЗначения(выборка) =  2  тогда
			командник.Execute();
		иначе
			выборка = командник.Execute();
		конецесли;
	except
		ЗаписьЖурналаРегистрации(строчка);
		ЗаписьЖурналаРегистрации(ОписаниеОшибки());
		Если вопль =  1  тогда
			Сообщить("Запрос к Мусе не прошел ! ");
		конецесли;
		возврат 0 ;
	EndTry;
	возврат  1 ;
конецфункции
//*************************************************
В тексте отчета/модуля/обработки:
     перем соединение, смд,выборка, строчка;
	Если ВключитьМусю(соединение,смд) =  0  тогда	возврат;
	конецесли;

        строчка = "SELECT * FROM MyTable ";
	выборка=0 ;
	Если СКЛ(смд,строчка,выборка) =  0  тогда
		возврат;
	конецесли;	
	Если выборка.EOF() < 0  тогда
		Предупреждение("Нет данных !!!");
		возврат;
	конецесли;
	Пока выборка.EOF() =  0  do
		что-то = TrimAll(выборка.Fields( 0 ).Value);
		выборка.MoveNext();
	конеццикла;
	выборка.Close();