_CommandPtr pexec_sp = NULL;
	pexec_sp.CreateInstance(__uuidof(Command));
	try
	{
		pexec_sp->ActiveConnection = CWorkDB::Instance()->GetConnectionPtr();
		pexec_sp->CommandText = "ProjectTSaveDoc";
		pexec_sp->CommandType = adCmdStoredProc;

		_variant_t vtparam;
		vtparam.vt = VT_I4;
		vtparam.intVal = m_iDocID;
		pexec_sp->Parameters->Append(pexec_sp->CreateParameter("@TID", adInteger, adParamInput,  0 , vtparam));

		vtparam.Clear();
		vtparam.vt = VT_BLOB;
		pexec_sp->Parameters->Append(pexec_sp->CreateParameter("@Document", adVariant, 
			adParamInput,  0 , stream_out->Read(adReadAll)));

		_variant_t vtresult;
		pexec_sp->Execute(NULL, NULL, adCmdStoredProc); // вот здесь приложение падает :(
	}