Как получить набор записей из хранимой процедуры? - VB

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

Есть процедура (MS SQL) типа PROCEDURE vTest AS select * from Test возвращающая набор записей Как получитьпоказать этот набор в программе на VB используя ADO?

Решение задачи: «Как получить набор записей из хранимой процедуры?»

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

                            Dim rs As ADODB.Recordset
    Вшь cmd As ADODB.Command
 
    Set rs = New ADODB.Recordset
    Set cmd = New ADODB.Command
    
    cmd.ActiveConnection = 'My Connection string...'
    cmd.CommandText = 'MyStoredProcedure'
    cmd.CommandType = adCmdStoredProc
    
    ' При необходимости определяем параметры
    ' cmd.Parameters.Append cmd.CreateParameter('@ParamName', adInteger, adParamInput, , Value)
        
    rs.CursorLocation = adUseClient
    rs.Open cmd, , adOpenStatic, adLockReadOnly
                        