vb动态链接库dll连接数据库 asp文件调用问题

asp文件源码:

Set ConnDll = Server.CreateObject("Config.SqlConnection")
Conndll.Db = "yeekang"
Conndll.uid = "sa"
Conndll.pwd = "123456"
ConnDll.ConnectionData()
Set Rs = Server.CreateObject("Adodb.RecordSet")
Sql = "Select * From Ask"
Rs.Open Sql,ConnDll.Conn,1,1
Response.Write(Rs.RecordCount)

config.dll源码
Dim ConnStr As String
Public Conn As New ADODB.Connection
Dim rp As Response
Dim rq As Request
Dim ap As Application
Dim se As Session
Dim sr As Server
Public Db As String
Public uid As String
Public Pwd As String
Public Sub OnStartPage(Mysc As ScriptingContext)
Set rp = Mysc.Response
Set rq = Mysc.Request
Set ap = Mysc.Application
Set se = Mysc.Session
Set sr = Mysc.Server
End Sub
Public Sub OnEndPage()
Set rp = Nothing
Set rq = Nothing