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

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

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