前几天谁问的？从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

原文转自：http://www.ltesting.net