ASP + SQL SERVER + dll 求助，函数内部调用的问题

Question

为什么我把myconn中的代码写在mysoid中的时候就可以正常操作，单独写在一个函数中调用就出错呢？？？新手求助Private MyScriptingContext   As ScriptingContext
Private MyApplication   As Application
Private MyRequest   As Request
Private MyResponse   As Response
Private MyServer   As Server
Private MySession   As SessionPublic Sub OnStartPage(PassedScriptingContext As ScriptingContext)
Set MyScriptingContext = PassedScriptingContext
Set MyApplication = MyScriptingContext.Application
Set MyRequest = MyScriptingContext.Request
Set MyResponse = MyScriptingContext.Response
Set MyServer = MyScriptingContext.Server
Set MySession = MyScriptingContext.Session
End SubPrivate Function Myconn()    Dim Conn
    Set Conn = CreateObject("ADODB.Connection")
    Conn.open "Driver={sql server};server=127.0.0.1;uid=yt_dqgs2008;pwd=yt_daqingguosheng;database=yht;"
    Myconn = Conn
    
End FunctionPublic Function Mysoid(num As Variant)
    
    Set rs = CreateObject("ADODB.RecordSet")
    Dim soid
    
    sql = "select top " & num & " soid from [soid_c] where state =1"
    rs.open sql, Myconn, 1, 1
    Do While Not rs.EOF
    soid = soid & rs(0) & "#"
    rs.movenext
    Loop
    rs.Close
    Set rs = Nothing
    Conn.Close
    Set Conn = Nothing
    
    MyResponse.Write (soid)
    
End Function
Public Sub OnEndPage()
Set MyScriptingContext = Nothing
Set MyApplication = Nothing
Set MyRequest = Nothing
Set MyResponse = Nothing
Set MyServer = Nothing
Set MySession = Nothing
End Sub