请大家帮我看一下这个Connection.Execute语句里哪里出错了?

<%
const adCmdText = 1
const RecordsAffected = 0

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

DBPath = Server.MapPath("sample.mdb")
Conn.ConnectionString="Driver={Microsoft Access Driver (*.mdb)};DBQ=" & DBPath
Conn.Open

CommandText = "insert into member(name) values('MeiJun')"

Conn.Execute CommandText,RecordsAffected,adCmdText

Set Conn = nothing

%>

在Conn.Execute 处报错：
错误类型：
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
/regist.asp, 第 13 行