Boa tarde galera, gostaria de saber como posso fazer acesso a uma Stored Procedures no SQL Server ex:

O sistema Acessa a Stored Procedures e me retorna algo.

Neste exemplo, retorna um recordset com uma pesquisa efetuada no bdados. 

    Dim Wcm_Pesquisa as New ADODB.Command  

    Dim wRs_Movto As New ADODB.Recordset
    grdMovto.Rows = 1
    With wcm_Pesquisa
         .ActiveConnection = gConexao
         .CommandType = adCmdStoredProc
         .CommandText = "PesquisaMovContabPeriodo" '<= Nome da minha stored procedure
         Call .Parameters.Refresh
         .Parameters("@cdUnidGestora").Value = gUnidGestora 'passar os parametros
         .Parameters("@dtano").Value = txtdtAno.Text
         .Parameters("@cdConta").Value = txtcdConta.Text
         .Parameters("@dtInicio").Value = dtpInicio.Value
         .Parameters("@dtFinal").Value = dtpFinal.Value
    End With
    With wRs_Movto
        .CursorLocation = adUseClient
        Call .Open(wcm_Pesquisa, , adOpenForwardOnly, adLockOptimistic) 'executar a stored procedure
        If .EOF Then
            Call MsgBox("Nenhum movimento neste período!", vbInformation + vbOKOnly 
        Else
            Do While Not .EOF 'Carregar o msFlexGrid
               grdMovto.AddItem !dtLancamento & vbTab & !dsHistorico & vbtab &  Format(!vldebito, "###,###,###,###,##0.00")
               .MoveNext
            Loop
        End If
    End With

Cara, tu pode executar na variável de conexão. Exemplo:

 

A Procedure "Capture_IP(Local_Machine, Remote_Machine)" pode ser executada na variável de conexão com SQL Server: - BD.Execute ("Capture_Ip(127.0.0.1, 200.35.60.108)").

Caso a procedure te retorne um recordset é só setar o recordset com esta execução. Ex: SET RsRecordset = BD.Execute ("Capture_Ip(127.0.0.1, 200.35.60.108)").