Public Sub DoQuery(strSQL As String)
    Dim cmd As New ADODB.Command
    
    On Error GoTo EH
    
    Set cmd.ActiveConnection = SysParam.cn
    cmd.CommandTimeout =  0 
    cmd.CommandType = adCmdText
    cmd.CommandText = strSQL
    
    cmd.Execute , , adAsyncExecute
    
    Do While cmd.State = adStateExecuting
        If gblnStopLoading Then
            cmd.Cancel
            Exit Do
        End If
        
        Sleep  250 
        DoEvents
    Loop
    
    Set cmd = Nothing
    
    Exit Sub
EH:
    WriteLog "(DoQuery)" & Err.Source, Err.Description
End Sub

CREATE PROCEDURE dbo.MainProc  AS
BEGIN
	SET NOCOUNT ON
        .... немного кода
        EXEC dbo.MyProc1    --вызов еще одной ХП
        EXEC dbo.MyProc2    --вызов еще одной ХП
        EXEC dbo.MyProc3    --вызов еще одной ХП
        EXEC dbo.MyProc4    --вызов еще одной ХП
        EXEC dbo.MyProc5    --вызов еще одной ХП
END
GO

rs.Open "select spid, cast(context_info as varchar) as [info] from  master..sysprocesses where spid = " & Str(spid), cnT, adOpenForwardOnly, adLockReadOnly