Всем здравствуйте! Не получается запустить процедуру(в приложении) SQL из Excel. процедуру запускаю след. образом:

Set prPubs = New ADODB.Command
With prPubs
.ActiveConnection = cnPubs
.CommandText = "PrcGen_Select3"
.CommandType = adCmdStoredProc
.NamedParameters = True

.Parameters.Append .CreateParameter("@Mode", adInteger, adParamInput, 3, 106)
.Parameters.Append .CreateParameter("@DealID", adBigInt, adParamInput, 12, 940000010519#)
.Parameters.Append .CreateParameter("@InstitutionID", adBigInt, adParamInput, 1, 0)
.Parameters.Append .CreateParameter("@DateCurrent", adDate, adParamInput, , #10/18/2007#)
.Parameters.Append .CreateParameter("@DateEnd", adDate, adParamInput, , #7/10/2008#)
.Parameters.Append .CreateParameter("@RefreshMode", adInteger, adParamInput, 1, 1)
.Parameters.Append .CreateParameter("@FullMode", adInteger, adParamInput, 1, 0)
.Parameters.Append .CreateParameter("@RestMode", adInteger, adParamInput, 1, -1)
.Parameters.Append .CreateParameter("@MCMode", adInteger, adParamInput, 1, 0)
.Parameters.Append .CreateParameter("@SortMode", adInteger, adParamInput, 1, 1)


Set rsPubs = .Execute

End With

' Копирование записи в ячейку A1 на листе Sheet1.
Лист1.Range("A1").CopyFromRecordset rsPubs

Ругается на последней строчке, "run time error '3704' Операция недопускается, если объект закрыт". По отладчику видно, что результат выполнения процедуры нулевой (в отладчике смотрю rsPubs, fields, значение counts = 0). Если же захожу в queryAnalyzer, то эта процедура с этими же параметрами выдает мне данные. Параметры передаются процедуре верно, проверял каждый по отдельности (в процеруде есть тип dsidentifier его можно передавать процедуре как adBigInt, проверял). Я с ADO не знаком, подскажите пожалуйста, где "копать" :) . Заранее благодарен за помощь.

соединение открыто, это не полный текст программы, а только описание процедуры. Вот что выяснил, если вместо нее подставить простейщую процедуру, в которой будет только инструкция select, то она отработает, если же в эту процедуру я добавлю ещё инструкцию insert, то она выдает вот такую ошибку, но при этом insert отработает, а select нет.

Dim cnPubs As ADODB.Connection
Set cnPubs = New ADODB.Connection

' Строка подключения.
Dim strConn As String

'Использование поставщика OLE DB SQL Server.
strConn = "PROVIDER=SQLOLEDB;"

'Подключение к базе данных на сервере.
strConn = strConn & "DATA SOURCE=e-fs;INITIAL CATALOG=test_2;"

'Использование встроенного входа.
strConn = strConn & " INTEGRATED SECURITY=sspi;"

'Открытие подключения.
cnPubs.Open strConn

Точно! После set nocount on, простейшая процедура с двумя инструкциями заработала! А вот изначальная процедура нет, думаю что это из-за того, что после исполнения в queryAnalyzer'е на вкладке messages она возвращает след. значение:
+-------------------+
| total | current | FillPayDate2 - start
|---------|---------|

|---------|---------|

|---------|---------|

|---------|---------|
| 30| 30| FillPayDate2 - finish
+-------------------+

Пока не нашел как это зарубить.

ВАХ! HandKot сработало! Креативное решение, СПАСИБО!

Set rsPubs = .Execute
Set rsPubs = rsPubs.NextRecordset

Работает! Работает! УАААААААА, спасибо!!!!!!!