Stored Procedure

Global cmd As ADODB.Command
 
Set cn = New ADODB.Connection
    cn.ConnectionString = 'Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;User ID=lex;Initial Catalog=aststoreb;Data Source=SDATA1'
    cn.Open
    
Set cmd = New ADODB.Command
    cmd.ActiveConnection = cn
    cmd.CommandText = 'managers' --yfpdfybt cnjhtl ghjwtlehs
    cmd.CommandType = adCmdStoredProc
    cmd.Execute

....
cmd.CommandText = 'managers' --yfpdfybt cnjhtl ghjwtlehs
cmd.CommandType = adCmdStoredProc
cmd.Execute

Dim cn As New ADODB.Connection
Dim cmd As New ADODB.Command
Dim rs As New ADODB.Recordset
Dim fldloop As ADODB.Field
Dim param1 As Parameter, param2 As Parameter, param3 As Parameter
Dim provStr As String
Dim royalty As Variant
    
Private Sub spStart()
 
' Connect using the SQLOLEDB provider.
cn.Provider = 'sqloledb'
 
' Specify connection string on Open method.
provStr = 'Server=MyServer;Database=pubs;Trusted_Connection=yes'
cn.Open provStr
 
' Set up a command object for the stored procedure.
Set cmd.ActiveConnection = cn
cmd.CommandText = 'myProc'
cmd.CommandType = adCmdStoredProc
 
' Set up a return parameter.
Set param1 = cmd.CreateParameter('Return', adInteger, adParamReturnValue)
cmd.Parameters.Append param1
            
' Set up an output parameter.
Set param2 = cmd.CreateParameter('Output', adInteger, adParamOutput)
cmd.Parameters.Append param2
  
' Set up an input parameter.
Set param3 = cmd.CreateParameter('Input', adInteger, adParamInput)
cmd.Parameters.Append param3
royalty = Trim(InputBox('Enter royalty:'))
param3.Value = royalty
 
' Execute command, and loop through recordset, printing out rows.
Set rs = cmd.Execute
 
Dim i As Integer
While Not rs.EOF
    For Each fldloop In rs.Fields
        Debug.Print rs.Fields(i)
        i = i + 1
    Next fldloop
    Debug.Print ''
    i = 0
    rs.MoveNext
Wend
 
' Need to close recordset before getting return 
' and output parameters.
rs.Close
 
Debug.Print 'Program ended with return code: ' & Cmd(0)
Debug.Print 'Total rows satisfying condition: ' & Cmd(1)
cn.Close