谢谢大虾告诉我解决的方法，可惜还是不行！
或许使我没把源代码写全。
以下是我的网页register.asp的全部源代码：
<%
set conn=server.createobject("adodb.connection")
DBPath="Provider=Microsoft.Jet.OLEDB.4.0;" & Server.MapPath("../data/members.mdb")
conn.Open "members"
if trim(request.form("Name"))="" or trim(request.form("psw"))="" or trim(request.form("E_mail"))="" then
%>

<%
else
set rstmp=server.createobject("adodb.recordset")
set rstmp=conn.execute("Select * from Users Where Name='"&trim(request.form("name")) & "'")
if not rstmp.eof then
response.write("错误：

用户名："&request.form("Name")&"已经被别人使用，请使用其他用户名！

按此返回>>

")
else
str="Insert Into Users(Name,Sex,Psw,Email,City,Occupation,URL,Signature,Interests,OICQ,ICQ,PswNotice,PswItis) values('"
str=str & request.Form("name") & "','"
str=str & request.form("sex") & "','"
str=str & request.form("psw") & "','"
str=str & request.form("e_mail") & "','"
str=str & request.form("city") & "','"
str=str & request.form("occupation") & "','"
str=str & request.form("url") & "','"
str=str & request.form("Signature") & "','"
str=str & request.form("Interests") & "','"
str=str & request.form("oicq") & "','"
str=str & request.form("icq") & "','"
str=str & request.form("pswnotice") & "','"
str=str & request.form("pswitis") & "')"
conn.execute(str)
set rs=server.createobject("adodb.recordset")
set rs=conn.execute("Select * from Users Where name='"&request.form("name") & "'")
session.contents("UserName")=request.form("name")
%>

您的资料：
注册名	<%=rs("name")%>
性别	<%if rs("sex")=0 then response.write("女") end if%>
密码提示	<%=rs("pswnotice")%>
提示答案	<%=rs("pswitis")%>
Email地址	<%=rs("email")%>
城市	<%=rs("city")%>
职业	<%=rs("Occupation")%>
主页	<%rs=("URL")%>
兴趣爱好	<%=rs("Interests")%>
OICQ号码	<%=rs("OICQ")%>
ICQ号码	<%=rs("ICQ")%>
签    名	<%=rs("Signature")%>
其他属性：
社区货币：	<%=rs("cash")%>NG
个人魅力：	<%=rs("meili")%>
现在登录

<%
rs.close
set conn=nothing
set rs=nothing
end if
end if
%>
错误为
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
/asp/shequ/register.asp, 第 32 行
有谁能帮忙改一下！
求求大家了！！！