我是新手，看了半天没看出来！
<%
name=request("name")
password=request("password")
rt=request("rt")
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & Server.MapPath("wangba.mdb")
Conn.Open
' 建立Recordset对象并以追加记录方式打开数据表admin
set rs=server.createobject("adodb.recordset")
set rs1=server.createobject("adodb.recordset")
sql="select * from admin where name='"&name&"'"
rs.Open sql,conn,1,1
if rs.EOF or rs.bof then
rs1.Open "admin",conn,3,4
exec="insert into admin(name,password,rt)values('"+name+"','"+password+"','"+rt+"')"
conn.execute exec
%>

错误类型：
Microsoft JET Database Engine (0x80040E14)
INSERT INTO 语句的语法错误。
/789/10/123/addnewuser.asp, 第 18 行

变了也不行，还是报这个错误！

<!--#include file="conn.asp" -->
<%
name=request("name")
password=request("password")
rt=request("rt")
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & Server.MapPath("wangba.mdb")
Conn.Open
' 建立Recordset对象并以追加记录方式打开数据表admin
set rs=server.createobject("adodb.recordset")
set rs1=server.createobject("adodb.recordset")
sql="select * from admin where name='"&name&"'"
rs.Open sql,conn,1,1
if rs.EOF or rs.bof then
rs1.Open "admin",conn,3,4
exec="insert into admin(name,password,rt)values('"+name+"','"+password+"','"+rt+"')"
conn.execute exec
%>
<script language="vbscript">
alert ("用户信息添加成功!!!!")
window.location.href = "index.asp"
</script>
<%
rs1.close
set rs1=nothing
else
%>
<script language="vbscript">
alert ("用户名重复！！！")
history.back
</script>
<%
end if
end if
rs.Close
set rs=nothing
%>

这是我全部代码，你帮我看看，谢谢

呵呵，就是字段出错了，该了下好了，谢谢大家！