前几天谁问的？从dll返回连接对象给asp使用，例子在里面

dll工程的名字为nn，类的名字为tt
option explicit

function test() as string

    test = "test!!!!"
    
end function

public function getconn() as adodb.connection

    dim conn as adodb.connection
    
    set conn = new adodb.connection
    
    
    debug.print ("ok")
    
    set getconn = conn
    
end function

exe工程的名字为na,

option explicit

private sub form_load()

    
    dim a as nn.tt
    
    set a = new nn.tt
    
    
    dim b as object
    
    set b = a.getconn()
     
    这里的b就是一个adodb.connectioh对象
    debug.print b.version()
    

end sub