access连接有关问题

access连接问题
<%

Dim   oConn,   oRs,   sSql

Call   DBConnBegin()


Sub   DBConnBegin()

If   IsObject(oConn)   =   True   Then   Exit   Sub

Set   oConn   =   Server.CreateObject( "ADODB.Connection ")

On   Error   Resume   Next
oConn.Open   "Provider=Microsoft.Jet.OLEDB.4.0;   Data   Source= "   &   Server.MapPath( "product/produ.mdb ")

If   Err.Number   >   0   Then
'Call   DBConnError(Err)


Response.End
End   If


Set   oRs   =   Server.CreateObject(   "ADODB.Recordset "   )
End   Sub


Sub   DBConnEnd()
On   Error   Resume   Next
oRs.Close
Set   oRs   =   Nothing
oConn.Close
Set   oConn   =   Nothing
End   Sub
%>

这是我连接数据库的一段代码,我已经在数据库里添加了数据,但运行之后报错

Microsoft   VBScript   编译器错误   错误   '800a03f6 '  

缺少   'End '  

/iisHelp/common/500-100.asp，行242  

ADODB.Recordset   错误   '800a0cc1 '  

在对应所需名称或序数的集合中，未找到项目。  

/index.asp，行27  

是不是我连接数据库的语句有问题

[解决办法]
页面中的字段与实际库中字段不符