[求助]缺少CONN对象，怎么修改代码啊？
请问下面代码问题在哪??(错误提示是:缺少CONN对象)希望各位大侠帮帮忙啊
………………
<%
response.expires=0
response.buffer=true
session.timeout=30
dim conn
dim char_str(20)
sub OpenDataConn()
'dim connstr,conn
connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
connstr = connstr & Server.MapPath("data/qhousedb.asp")
'response.write connstr
set conn=Server.CreateObject("AdoDb.Connection")
conn.Open connstr
end sub
sub CloseDataConn()
conn.close
set conn=Nothing
end sub
%>
