Como executar uma Stored Procedure passando parametros e recebendo os retornos.

 

Criei um exemplo simples veja se te ajuda

 

Procedure no SQLSERVER 

CREATE PROCEDURE [sp_Sel_ClienteporNome]
@Nome_Cliente  as varchaR(40)
AS
Select * from tb_cliente where nome_cliente like @nome_cliente + '%'

 

 

No VB

 

Option Explicit
Dim Conn   As ADODB.Connection
Dim Rs     As ADODB.Recordset
Dim Comm   As ADODB.Command
Dim Param1 As ADODB.Parameter
Dim VarParamCliente As String

Private Sub Form_Load()
    VarParamCliente = "a"
    Set Conn = New ADODB.Connection
    Conn.Provider = "SQLOLEDB"
    Conn.ConnectionString = "Server=Silvio;Database=DB_Locadora;uid=sa"
    Conn.Open
    Set Comm = New ADODB.Command
    Comm.ActiveConnection = Conn
    Comm.CommandType = adCmdStoredProc
    Comm.CommandText = "sp_sel_clientepornome"
    Set Param1 = Comm.CreateParameter("@nome_cliente", adVarChar, adParamInput, 40, VarParamCliente)
    Comm.Parameters.Append Param1
    Set Rs = New ADODB.Recordset
    Set Rs = Comm.Execute
    Grid.MaxCols = 3
    Grid.MaxRows = 0
    While Not Rs.EOF
        Grid.MaxRows = Grid.MaxRows + 1
        Grid.Row = Grid.MaxRows
        Grid.Col = 1
        Grid.Text = Rs(0)
        Grid.Col = 2
        Grid.Text = Rs(1)
        Grid.Col = 3
        Grid.Text = Rs(2)
        Rs.MoveNext
    Wend
End Sub