Как в коде программы вызвать процедуру SQL Server-а???

[angelina]

Есть процедура

CREATE PROCEDURE RunApp
AS
begin
if (not object_id ('tempdb..##Сидоров') is NULL)
return 0
else
CREATE TABLE ##Сидоров (cod int, val int)
return 1
end
GO

Как ее вызвать в программе на VB и получить возвращаемое ею значение????
Заранее всем огромное спасибо!!!!!!!!

[angelina]

я пытаюсь сделать вот так

Dim db As ADODB.Connection
Dim Rs As ADODB.Recordset
Dim Cmd As New ADODB.Command

Set db = New ADODB.Connection
db.CursorLocation = adUseClient
db.Open "Provider=SQLOLEDB.1;UID=...;PWD=.......;Persist Security Info=False;Initial Catalog=...;Data Source=....."

Cmd.CommandText = RunApp
Cmd.CommandType = adCmdStoredProc
Cmd.ActiveConnection = db
Set Rs = cmdSQL.Execute

но на последней строке ругается, пишет
ошибка синтаксиса или нарушение прав доступа