Вызов хран. процедуры с параметрами(IN, OUT) - VB

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

Вопрос в следующем. Как на VB 6 сделать вызов(запуск на выполнение) процедуры с возвращаемым клиенту параметром. Просто пускать процедуры и процедуры с задаваемыми параметрами нет проблем, а как выгребсти возвращаемое процедурой значение в клиентское приложение на vb6?

Решение задачи: «Вызов хран. процедуры с параметрами(IN, OUT)»

textual
                            Листинг программы 
                        
                            <font color="blue">Dim</font> oAdoConnect

<font color="blue">Set</font> oAdoConnect = CreateObject(<font color="teal">"ADODB.Connection"</font>)

<font color="00AA00">' Задаем строку соединения.</font>
strConnectionString = <font color="teal">"Provider=SQLOLEDB.1;data source=MyServerName;initial catalog=MyDBName;Trusted_Connection=Yes;"</font>

oAdoConnect.ConnectionString = strConnectionString
oAdoConnect.<font color="blue">Open</font>()

strSQL = <font color="teal">"Declare @myConst as varchar(50) Exec sp_MyStoreProcedure 'Param1','Param2', @myConst  OUT Select myConst = @myConst"</font>

<font color="blue">Set</font> oAdoRecordSet = oAdoConnect.Execute(strSQL)

MsgBox <font color="teal">"Получаем: "</font> + Trim( oAdoRecordSet.Fields(<font color="teal">"myConst"</font>).Value