未设置对象变量或 With block 变量该怎样解决？

[mhf813]

我用vb写了一个连接数据库的组件如下：
工程名：dataAsp 类名：Connections
Private myscriptingcontext As ScriptingContext
Private myapplication As Application
Private myrequest As Request
Private myresponse As Response
Private myserver As Server
Private mysession As Session

Public 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 Sub

Public Sub onendpage()
Set myscriptingcontext = Nothing
Set myapplication = Nothing
Set myrequest = Nothing
Set myresponse = Nothing
Set myserver = Nothing
Set mysession = Nothing
End Sub


Public Function Conn() As ADODB.Connection
Dim strConn As String
Dim strData As String
Dim myConn As ADODB.Connection
Dim i As String
strData = "E:\data\test.mdb"
strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strData
myConn.Open strConn
lawerConn = myConn
End Function

在asp中调用：
dim myConn,conn
set myConn=server.createobject("dataAsp.Connections")
conn=myconn.Conn()

提示错误：
错误类型：
dataAsp (0x800A005B)
未设置对象变量或 With block 变量

请问该怎样解决?

[mhf813]

我试了
不过还是提示错误：
dataAsp (0x800A005B)
未设置对象变量或 With block 变量

请问该怎样解决?

[bladeinside]

dim myConn as ADODB.Connection

--------->改成

dim myConn as new ADODB.Connection

[香椿炒鸡蛋]

up haha