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

Формулировка задачи:

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

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 и получить возвращаемое ею значение???? Заранее всем огромное спасибо!!!!!!!!

Решение задачи: «Как вызвать в коде программы процедуру SQL Server-а???»

textual
                            Листинг программы 
                        

                            Private Function SMS_GetPhoneType(ByVal ClientID As Long) As Long
Dim cmd As ADODB.Command, p As ADODB.Parameters
    Set cmd = New ADODB.Command
    cmd.ActiveConnection = modADO.GetConnectionString()
    cmd.CommandType = adCmdStoredProc
    cmd.CommandText = 'SMS_GetPhoneType'
    Set p = cmd.Parameters
    p.Append cmd.CreateParameter('RETURN_VALUE', adInteger, adParamReturnValue)
    p.Append cmd.CreateParameter('@ClientID', adInteger, adParamInput, , ClientID)
    cmd.Execute , , adExecuteNoRecords
    SMS_GetPhoneType = p('RETURN_VALUE').Value
    Set p = Nothing
    Set cmd = Nothing
End Function
                        