нещо такова ...

----------------------------

    Dim cn2 As New ADODB.Connection

    Dim cmd As ADODB.Command

    

    cn2.ConnectionString = "......."

    cn2.Open

    

    Set cmd = New ADODB.Command

    cmd.ActiveConnection = cn2

    

    cmd.CommandText = "name_of_stored_procedure" 

    cmd.CommandType = adCmdStoredProc



    cmd.Parameters.Item("input_param_name").Value = input_param_value



    cmd.Execute

   

    sp_result = cmd.Parameters.Item("return_value_name").Value

    Debug.Print sp_result

    

    cn2.Close

    Set cn2 = Nothing