// это параметры для комманды 
	VARIANT vtName, vtSourceID;
	_ParameterPtr	prmName			= NULL;
	_ParameterPtr	prmSourceID		= NULL;
	_ParameterPtr	prmTask			= NULL;
	_CommandPtr		GetTaskIdCmd	= NULL;

	WriteLog(" -> GetTaskID begin");
	try
	{
		TESTHR (GetTaskIdCmd.CreateInstance(__uuidof(Command)));
		GetTaskIdCmd->ActiveConnection = pConnection; //это коннекшн типа _ConnectionPtr 
		GetTaskIdCmd->CommandText = "sp_someget_proc"; //имя 
		GetTaskIdCmd->CommandType = adCmdStoredProc; //тип 
		GetTaskIdCmd->CommandTimeout =  15 ;
	}
	catch(...)
	{
		MessageBox(NULL,"Ошибка инициализации команды","ошибка",MB_OK|MB_ICONERROR);
		return  1 ;
	}
 // начили загонять параметры 
	vtName.vt = VT_BSTR;
	vtName.bstrVal = (_bstr_t)(name);

	vtSourceID.vt = VT_I4;
	vtSourceID.intVal =  5 ;
 // входящий 
	prmName = GetTaskIdCmd->CreateParameter( "reg_number",adBSTR,adParamInput,strlen(name),vtName);
	GetTaskIdCmd->Parameters->Append(prmName);
 // входящий 
	prmSourceID = GetTaskIdCmd->CreateParameter( "source_id",adInteger,adParamInput,sizeof(int),vtSourceID);
	GetTaskIdCmd->Parameters->Append(prmSourceID);
 // исходящиц 
	prmTask = GetTaskIdCmd->CreateParameter( "task_id",adInteger,adParamOutput,sizeof(int));
	GetTaskIdCmd->Parameters->Append(prmTask);
	try
	{         // ВПЕРЁД!!! 
		GetTaskIdCmd->Execute(NULL,NULL,adCmdStoredProc);
		*Task_id = prmTask->Value.intVal;
	}catch(_com_error &e)
	{	char Msg[ 256 ];
		 // Notify the user of errors if any.    
		_bstr_t bstrSource(e.Source());
		_bstr_t bstrDescription(e.Description());
		sprintf(Msg,"Source : %s \n Description : %s \n",(LPCSTR)bstrSource,(LPCSTR)bstrDescription);
		return  1 ;
	}