стрПодключения = "Driver = {SQL Server};";
стрПодключения = стрПодключения + ИмяСервера + ";";
стрПодключения = стрПодключения + "DataBase=" + ИмяБазы + ";";
стрПодключения = стрПодключения + "Uid=" + ИмяПользователя +";";
стрПодключения = стрПодключения + "Pwd=" + Пароль + ";";

АДОДБКоннект = Новый COMОбъект("ADODB.Connection");
АДОДБКоннект.OpenServer = стрПодключения;
	
//**********Загрузка контрагентов***************
РСК = Новый COMОбъект("ADODB.Recordset"); 	
РСК.Open(ТекстЗапросаКонтрагент);

стрПодключения    = "Provider=SQLOLEDB.1;
 |User ID="+ИмяПользователя+";
 |Pwd="+Пароль+";
 |Data Source=" + ИмяСервера + ";
 |Initial Catalog=" + ИмяБазы + "";
	
АДОДБКоннект = Новый COMОбъект("ADODB.Connection");
АДОДБКоннект.Open(стрПодключения);
	
//**********Загрузка контрагентов***************
РСК = Новый COMОбъект("ADODB.Recordset"); 
РСК.ActiveConnection = АДОДБКоннект;
РСК.Open(ТекстЗапросаКонтрагент);