如何防止重复注册的问题
这是一个防止注册重名的一个程序，但有些问题还是不明白大家帮我来看看
有这么一段程序，运行之后，浏览器告诉这么一段话：
Microsoft VBScript 编译器错误 错误 '800a03f6'
缺少 'End'
/iisHelp/common/500-100.asp，行242
Microsoft JET Database Engine 错误 '80040e10'
至少一个参数没有被指定值。
/shuchu.asp，行22
这个程序如下：
<%
dim bianhao, kehu, dianhua
bianhao = request ("bianhao") '编号
kehu = request ("kehu") '客户的名称
dianhua = request ("dianhua") '电话
到这里获取上页表单，没问题
dim objconn
set objconn = server.CreateObject("adodb.connection")
objconn.connectionstring = "provider = microsoft.jet.oledb.4.0;" & "data source = " & server.MapPath("dangan.mdb")
objconn.open
到这里挂接数据库，没有问题
dim strsql
strsql = "select 编号，客户名称, 联系电话 from 客户档案 where 客户名称 = '"& kehu &"'"
到这里，一开始我怀疑where语句出错了，但拿response.write strsql 试过之后，好像应该没问题，比如上页填写的客户名称为张三，输出结果如下：
select 编号，客户名称, 联系电话 from 客户档案 where 客户名称 = '张三'
dim objrs
set objrs = server.createobject ("adodb.recordset")
到这里创建了对象，没有问题
objrs.open strsql, objconn, 1, 3, adcmdtext
上面这句话是我最怀疑的了，我有种感觉70%问题的可能性出在这里。包括这句话在内以及下面的部分我删除了，然后拿浏览器输出，结果正常，浏览器没有报错。一但把这语句加上之后，（下面的语句不加上），浏览器就报出上面的提示信息了。---“至少一个参数没有被指定值”objconn(打开数据库连接)，1—adopendynamic(指针可以自由移动)，3—adlockoptimistic(更新时索定)，adcmdtext(把strsql视为sql语句，并把筛选符合结果存放在objrs里面)。我是没找到毛病在哪里，但我十分怀疑这里！！！！！
if objrs.eof then
objrs.addnew array ( "编号","客户名称", "联系电话"),_
array (bianhao,kehu, dianhua)
objrs.update
else
response.Redirect("1.htm")
end if
objrs.close
set objrs = nothing
objconn.close
set objconn = nothing
%>
上面这几句好像没什么问题，还有一点，access创建字段时，需不需要注意什么呢？
比如有的字段应设置成文本、数字等等。高手帮我看看，这里先谢谢了！
