Set connect= CreateObject("ADODB.Connection")
Set resultSet = CreateObject("ADODB.Recordset")
Set cmd = CreateObject("ADODB.Command")
connect.Open("Provider=SQLOLEDB;User ID=root;Password=root;Initial Catalog=Control;Data source=192.168.22.22")
cmd.CommandType = 4
cmd.CommandText = "x_awaiting"
cmd.ActiveConnection = connect
set resultSet= cmd.execute
msgbox resultSet.state

'resultSet.MoveFirst
Do While Not resultSet.eof
  nAwaiting = resultSet.fields(0).value
  msgbox nAwaiting,0
  resultSet.MoveNext
Loop

resultSet.Close
connect.Close
Set connect = Nothing

ALTER PROCEDURE [dbo].[x_awaiting]

AS

IF OBJECT_ID(N'#tmp','U') IS not NULL
 drop table #tmp;

create table #tmp
(
spid int,
ecid int,
status varchar(50),
loginame varchar(254),
hostname varchar(254),
blk int,
dbname varchar(254),
cmd varchar(254),
request_id int
)

INSERT INTO #tmp
EXEC sp_who

select count(*) as n
from #tmp
where ecid<>0