Акцент

[Daemonu4]

Ребят помогите советом?

Имеем простую сохраненную процедуру
CREATE PROCEDURE vv_tab as
CREATE TABLE #long1(J_ID Int, PRM_LONG int)
INSERT INTO #long1 ( J_ID, PRM_LONG )
SELECT JRN_PARAMS.J_ID, JRN_PARAMS.PRM_LONG
FROM JRN_PARAMS INNER JOIN JRN_PARAM_NAMES ON JRN_PARAMS.PRM_ID = JRN_PARAM_NAMES.PRM_ID
WHERE (((JRN_PARAM_NAMES.PRM_NAME)="Long1"))
SELECT J_id AS nom
FROM #long1
drop table #long1
GO
При попытке обратится из модуля
Option Explicit
'#include "ado.inc"
Dim rs
Dim CMD
Dim p
Set Cmd = CreateObject("ADODB.Command")
Set Cmd.ActiveConnection = WorkArea.AdoConnection
Cmd.CommandType = adCmdStoredProc
Cmd.CommandText = "vv_tab"
Set RS = CreateObject("ADODB.Recordset")
rs.Open cmd
Cmd.Execute
P = 0
rs.moveFIRST
Do While Not RS.EOF
p=p+1
rs.movenext
Loop
MsgBox p
Мне выдает ошибку сл. содеожания: Операция не допускается, если объект закрыт. на строке rs.moveFIRST
Помогите кто чем может.

[alex]

set nocount on

[olimp]

[Daemonu4]

Спасибо