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

asp文件源码:SetConnDll=Server.CreateObject("Config.SqlConnection")Conndll.Db="yeekang"Conndll.uid="sa"Conndll.pwd=""ConnDll.ConnectionData()SetRs=Server.CreateObject("Adodb.RecordSet")Sql="Select*FromAsk"Rs.OpenSql,ConnDll.Conn,1,1Response.Write(Rs.RecordCount)config.dll源码DimConnStrAsStringPublicConnAsNewADODB.ConnectionDimrpAsResponseDimrqAsRequestDimapAsApplicationDimseAsSessionDimsrAsServerPublicDbAsStringPublicuidAsStringPublicPwdAsStringPublicSubOnStartPage(MyscAsScriptingContext)Setrp=Mysc.ResponseSetrq=Mysc.RequestSetap=Mysc.ApplicationSetse=Mysc.SessionSetsr=Mysc.ServerEndSubPublicSubOnEndPage()Setrp=NothingSetrq=NothingSetap=NothingSetse=NothingSetsr=NothingEndSubPublicSubConnectionData()ConnStr="driver={Sqlserver};server=.;database=" Db ";uid=" uid ";pwd=" PwdConn.OpenConnStrrp.Write(ConnStr)EndSubPublicSubCloseConn()Conn.CloseEndSub