帮我看看错误在哪

[cqsjchh]

<%
'On Error Resume Next

Function   ValidSQL() 
ValidSQL = True 
Dim Invalid
Dim Server_From
Dim Server_Now
Dim Collection 

Invalid		=	split( "'|and|exec|insert|select|delete|update|count|*|%|chr|mid|master|truncate|char|declare","|") 
Server_From	=	Cstr(Request.ServerVariables("HTTP_REFERER"))
Server_Now	=	Cstr(Request.ServerVariables("SERVER_NAME"))

Set Collection	=	Request.QueryString 
     
If  Len(Collection)>4 Then 
	For Each Arg In Collection 
		For I=0 To Ubound(Invalid) 
			If Instr(Collection(Arg),Invalid(I))>0 Then 
			ValidSQL	=	false 
			Exit For 
			End If 
		Next 
	
		If ValidSQL	= False Then 
		Response.Write( "输入中包含非法字符,请重新输入! ") 
		Response.End()
		Exit For 
		End If 
	Next 
	End If 
End Function

Call ValidSQL()

DataURL	= "E:\*****\*****\Jx_House@=DB.mdb"
'Strsql	= "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DataURL 
Strsql	= "driver={Microsoft Access Driver (*.mdb)};dbq=" & DataURL
set dbconn=server.createobject("ADODB.CONNECTION")
dbconn.open Strsql 
%>

上面是一个DbConn.Inc文件的全部代码,出错导致整个项目大部份运行不过来。特来求助!
错误类型：
Provider (0x80004005)
未指定的错误
/test1/Inc/DbConn.Inc, 第 41 行

[cqsjchh]

错误解决 结帖

[不耐烦]

jf

[hz890]

接分。
多谢楼主散分！

[sumjor]

JF JF

[「已注销」]

123

[灬上海爽爷]

jfjf

[mailbao]

自問自答?!

[凡夫与俗子]

...