vbscript - Scriptcontrol オブジェクトはレコードセット オブジェクトを返します

Question

vbscript を使用してライブラリを作成し、scriptcontrol オブジェクトを使用してこれらのルーチンを vba から呼び出しています。以下のように、指定された sql をパラメーターとして使用して、レコードセットをルーチンとして作成しようとしています

sub GetData(sql, byref retrst)

stADO = "Provider=SQLOLEDB.1;Persist Security Info=False;Initial 
         Catalog=CCMSProd;Data Source=sv-hfi-ccms;UID=vc;PWD=dw;"

cnconn as adoconnection
Set cnconn = CreateObject("ADODB.Connection")

cnconn.Open stADO

msgbox cnconn.ConnectionString
msgbox cnconn.state

    With cnconn
        .CommandTimeout = 0
        Set retrst = .Execute(sql)
        msgbox retrst.recordcount
    End With
 cnconn.close
end sub

このルーチンを以下のように呼び出します

          scr.Run "GetConnection", tempload, rst

しかし、vbscript 内で接続とレコードセットが作成されたにもかかわらず、私のレコードセットは何も返されません。
これで助けが必要です。