СоединениеSQL = Новый COMObject("ADODB.Command");
СоединениеSQL.ActiveConnection = Подключение;
СоединениеSQL.CommandText=ТекстSQL;
СоединениеSQL.CommandType =  4 ;
СоединениеSQL.Prepared=Истина;

СоединениеSQL.Parameters.Append(СоединениеSQL.CreateParameter("@n", 3 , 1 , 9 , 1 ));
ЗаписиSQL = СоединениеSQL.Execute();

СоединениеSQL = Новый COMObject("ADODB.Command");
СоединениеSQL.ActiveConnection = Подключение;
СоединениеSQL.CommandText = "sp_executesql"
СоединениеSQL.CommandType =  4 ;
ТекстЗапроса="select Поставщик, ИмяПоставщика, КодМаг, ДатаПриход, НомНакл, ДатаНакл from ankStr..Приходы 
where Линия = @n and ДатаПриход between @ДатаПриходаС and @ДатаПриходаПо"
ПараметыЗапроса="@n int,@ДатаПриходаС datetime,@ДатаПриходаПо datetime"

ParamSqlText=СоединениеSQL.CreateParameter(, 130 , 1 , 5000 ,ТекстЗапроса)
СоединениеSQL.Parameters.Append(ParamSqlText);

ParamParamText=СоединениеSQL.CreateParameter(, 130 , 1 , 5000 ,ПараметыЗапроса)
СоединениеSQL.Parameters.Append(ParamParamText);

Param1 = СоединениеSQL.CreateParameter("@n", 3 , 1 , 1 , 1 );
СоединениеSQL.Parameters.Append(Param1);

Param2 = СоединениеSQL.CreateParameter("@ДатаПриходаС", 200 , 1 , 8 ,Формат(НачалоПериода,"ДФ=ггггММдд"));//Формат(НачалоПериода,"ДФ=ггггММдд"));
СоединениеSQL.Parameters.Append(Param2);

Param3 = СоединениеSQL.CreateParameter("@ДатаПриходаПо", 200 , 1 , 8 ,Формат(КонецПериода,"ДФ=ггггММдд"));
СоединениеSQL.Parameters.Append(Param3);

  Dim cmd As ADODB.Command
  Dim Rs As ADODB.Recordset
  Dim CmdStr As String
  Dim CmdPar As String
  Set cmd = New ADODB.Command
  Set cmd.ActiveConnection = CurrentProject.Connection
  cmd.CommandText = "sp_executesql"
  cmd.Prepared = True
  cmd.CommandType =  4 
  CmdStr = "select * from dbo.Журнал where Дата between @D1 and @D2"
  CmdPar = "@D1 datetime,@D2 datetime"
  cmd.Parameters.Append cmd.CreateParameter(, adWChar, adParamInput,  5000 , CmdStr)
  cmd.Parameters.Append cmd.CreateParameter(, adWChar, adParamInput,  5000 , CmdPar)
  cmd.Parameters.Append cmd.CreateParameter("@D1", adChar, adParamInput,  8 , "20070101")
  cmd.Parameters.Append cmd.CreateParameter("@D2", adChar, adParamInput,  8 , "20070101")
  Set Rs = cmd.Execute

if object_id('tempdb..#temp_НомераПриходов') >  0  drop table #temp_НомераПриходов
create table #temp_НомераПриходов (Приход int)

-- выбираем во временную таблицу номера приходов,
-- которые в дальнейшем будем выгружать в 1С
insert into #temp_НомераПриходов (Приход)
select Приход from ankStr..Приходы where 
                        Поставщик = @Поставщик 
                        -- приход от стороннего поставщика
                        and Линия =  1 
                        and ДатаПриход between @ДатаПриходС and @ДатаПриходПо
                        order by Приход

-- выводим шапки приходных накладных
select Приход, Поставщик, ИмяПоставщика, ПрихСумма, ПрихТара, ДатаПриход, РасхТран, РасхДоп, КодМаг, НомНакл, ДатаНакл, НомерСФ, ДатаСФ, НН, Примечание from ankStr..Приходы where Приход in (select * from #temp_НомераПриходов)

Как-то не сростается, моя ошибка в принципе по которому я запрашиваю данные, вот где не могу найти. 
 Спецы уделите мне пожалуйста чуть своего драгоценного времени и подскажите где я делаю не так.
В запросе есть  3  переменные:
@Поставщик int
@ДатаПриходС datetime
@ДатаПриходПо datetime

Я их добавил в Переменные запроса.

            order by Приход

-- выводим табличные части свернутые по ставке НДС
select Приход, sum(ФактШт) as ФактШт, sum(ФактШт*ЦенаПА) as Стоимость, НДС from ankStr..ТоварыПриходов where 
            Приход in (select * from #temp_НомераПриходов)
            -- не учитываем тару (информация о сумме тары идет в шапке приходной накладной)
            and ТараФл =  0 
            group by Приход, НДС
            order by Приход

if object_id('tempdb..#temp_НомераПриходов') >  0  drop table #temp_НомераПриходов
						|create table #temp_НомераПриходов (Приход int)
                        |insert into #temp_НомераПриходов (Приход)
						|select Приход from ankStr..Приходы where 
                        |Поставщик = @Поставщик 
                        |and Линия = @Линия
                        |and ДатаПриход between @ДатаПриходС and @ДатаПриходПо
                        |order by Приход

Функция ЗапросSQL (SQLServer,Login,Password,txtSQL)   //Функция выборки данных из SQL сервера и передача во временную таблицу 1С
	
	СтрокаСоединения = ("Provider=SQLOLEDB;Driver={SQL Server}; Deleted=No; Data Source = ") + SQLServer + 
					(";UID=") + Login + ("; PWD=") + Password + (";");
		              
    Подключение = Новый ComObject("ADODB.Connection");
	Подключение.ConnectionString=СтрокаСоединения;
	// Подключение.Mode =  3 ;
		Попытка
			Подключение.Open(СтрокаСоединения);
			Состояние ("Подключение к серверу SQL...");
		Исключение
			Сообщить(ОписаниеОшибки());
			Возврат Ложь;
		КонецПопытки;
		
	
	СоединениеSQL = Новый COMObject("ADODB.Command");
	СоединениеSQL.ActiveConnection = Подключение;
	СоединениеSQL.CommandType =  4 ; 
	СоединениеSQL.NamedParameters = True;
	// СоединениеSQL.CommandText = ("sp_executesql");  	// Запуск для select 
	СоединениеSQL.CommandText = (txtSQL[ 0 ][ 0 ]);  		// Имя хранимой процедуры на сервере 	
		
	Для i =  1  По txtSQL.Количество()- 1  Цикл  			// Заполняем запрос SQL переменными
		//Сообщить (txtSQL[i][ 0 ]+" "+txtSQL[i][ 1 ]+ " "+ txtSQL[i][ 2 ]+" "+txtSQL[i][ 3 ]+ " "+ txtSQL[i][ 4 ]);  // Тестовая срока
		СоединениеSQL.Parameters.Append(СоединениеSQL.CreateParameter(txtSQL[i][ 0 ],txtSQL[i][ 1 ],txtSQL[i][ 2 ],txtSQL[i][ 3 ],txtSQL[i][ 4 ])); 
	КонецЦикла;
		
	Состояние ("Выполнение запроса SQL...");
	ЗаписиSQL = Новый ComObject("ADODB.RecordSet");
	ЗаписиSQL = СоединениеSQL.Execute();
				
	Таблица = Новый ТаблицаЗначений;
	Состояние ("Заполнение временной таблицы...");
	Состояние (ЗаписиSQL.Fields.Count);
	Для НомерСтолбца =  0  По ЗаписиSQL.Fields.Count- 1  Цикл 		//Создание и добавление колонок во временную таблицу
		ИмяСтолбца =ЗаписиSQL.Fields.Item(НомерСтолбца).Name; 
		Таблица.Колонки.Добавить(ИмяСтолбца);
		Сообщить(ИмяСтолбца);
	КонецЦикла;
	
	Сообщить (ЗаписиSQL.Fields.Count());
	Пока ЗаписиSQL.EOF[ 0 ] =  0  Цикл								// Заполнение созданной таблицы
		
		НоваяСтрока =  Таблица.Добавить();
		Для НомерСтолбца =  0  По ЗаписиSQL.Fields.Count- 1  Цикл
			НоваяСтрока.Установить(НомерСтолбца,ЗаписиSQL.Fields(НомерСтолбца).Value);
			Сообщить ("Test " + ЗаписиSQL.Fields(ИмяСтолбца).Value + ИмяСтолбца);
		КонецЦикла;
								
		ЗаписиSQL.MoveNext();
		
	КонецЦикла;
	
	Состояние ("Закрываем соединение с SQL...");
    ЗаписиSQL.Close();
	Подключение.Close();
	
	Возврат Таблица;   // Возврат таблицы значений запроса SQL
	
КонецФункции

Пока ЗаписиSQL.EOF[ 0 ] =  0  Цикл

СтрокаСоединения = ("Provider=SQLOLEDB;Driver={SQL Server}; Deleted=No; Data Source = ") + SQLServer + 
					(";UID=") + Login + ("; PWD=") + Password + (";");
		              
    Подключение = Новый ComObject("ADODB.Connection");
	Подключение.ConnectionString=СтрокаСоединения;
	// Подключение.Mode =  3 ;
		Попытка
			Подключение.Open(СтрокаСоединения);
			Состояние ("Подключение к серверу SQL...");
		Исключение
			Сообщить(ОписаниеОшибки());
			Возврат Ложь;
		КонецПопытки;
		
	
	СоединениеSQL = Новый COMObject("ADODB.Command");
	СоединениеSQL.ActiveConnection = Подключение;
	СоединениеSQL.CommandType =  4 ; 
	СоединениеSQL.NamedParameters = True;
	//СоединениеSQL.CommandText = ("sp_executesql");  	// Запуск для select 
	СоединениеSQL.CommandText = (txtSQL[ 0 ][ 0 ], @);  		// Имя хранимой процедуры на сервере 	
		
	Для i =  1  По txtSQL.Количество()- 1  Цикл  			// Заполняем запрос SQL переменными
		Сообщить (txtSQL[i][ 0 ]+" "+txtSQL[i][ 1 ]+ " "+ txtSQL[i][ 2 ]+" "+txtSQL[i][ 3 ]+ " "+ txtSQL[i][ 4 ]);  // Тестовая срока
		СоединениеSQL.Parameters.Append(СоединениеSQL.CreateParameter(txtSQL[i][ 0 ],txtSQL[i][ 1 ],txtSQL[i][ 2 ],txtSQL[i][ 3 ],txtSQL[i][ 4 ])); 
	КонецЦикла;
		
	Состояние ("Выполнение запроса SQL...");
	
	ЗаписиSQL = Новый ComObject("ADODB.RecordSet");
	
	ЗаписиSQL = СоединениеSQL.Execute();
	
				
	Таблица = Новый ТаблицаЗначений;
	Состояние ("Заполнение временной таблицы...");
		
	Для НомерСтолбца =  0  По ЗаписиSQL.Fields.Count- 1  Цикл 		//Создание и добавление колонок во временную таблицу
		ИмяСтолбца =ЗаписиSQL.Fields.Item(НомерСтолбца).Name; 
		Таблица.Колонки.Добавить(ИмяСтолбца);
		Сообщить(ИмяСтолбца);
	КонецЦикла;
		
	Пока ЗаписиSQL.EOF  =  0  Цикл								// Заполнение созданной таблицы
		
		НоваяСтрока =  Таблица.Добавить();
		Для НомерСтолбца =  0  По ЗаписиSQL.Fields.Count- 1  Цикл
			НоваяСтрока.Установить(НомерСтолбца,ЗаписиSQL.Fields(НомерСтолбца).Value);
			Сообщить ("Test " + ЗаписиSQL.Fields(ИмяСтолбца).Value + ИмяСтолбца);
		КонецЦикла;
								
		ЗаписиSQL.MoveNext();
		
	КонецЦикла;

СоединениеSQL.CommandText = (txtSQL[ 0 ][ 0 ]);  		// Имя хранимой процедуры на сервере 	
		
	Для i =  1  По txtSQL.Количество()- 1  Цикл  			// Заполняем запрос SQL переменными
		Сообщить (txtSQL[i][ 0 ]+" "+txtSQL[i][ 1 ]+ " "+ txtSQL[i][ 2 ]+" "+txtSQL[i][ 3 ]+ " "+ txtSQL[i][ 4 ]);  // Тестовая срока
		СоединениеSQL.Parameters.Append(СоединениеSQL.CreateParameter(txtSQL[i][ 0 ],txtSQL[i][ 1 ],txtSQL[i][ 2 ],txtSQL[i][ 3 ],txtSQL[i][ 4 ]));