есть код в модуле. используется SQL 7.0 и DAO
Хочу вызвать из VB хранимую процедуру и получить от нее значение, но Access ругается и пишет: Ошибка выполнения 3146 ODBC- ошибка вызова

хранимая процедура такая

CREATE PROCEDURE testing_call @num smallint output
AS
begin
set @num=25
end


код VB такой

Sub ConnectionObj()
Dim qdf As QueryDef
Dim wrkODBC As Workspace
Dim con_ocv As Connection
Dim i

Set wrkODBC = DBEngine.CreateWorkspace("", "", "", dbUseODBC)
Set con_ocv = wrkODBC.OpenConnection("Cnn", , , "ODBC;DSN=MS SQL1;UID=name;PWD=1111;")
Set qdf = con_ocv.CreateQueryDef("", "Exec testing_call ?")
qdf.Parameters(0).Direction = dbParamOutput

qdf.Execute <------здесь выдает эту ошибку.

qdf.Close
con_ocv.Close
wrkODBC.Close

End Sub


Эта строка ("ODBC;DSN=MS SQL1;UID=name;PWD=1111;")в запросах к серверу работает правильно.


Или я вообще что то не так написал?