为什么不能添加记录？
<%
Set Cn=Server.CreateObject("ADODB.Connection")
Cn.open"DSN=sqlwwl;uid=eee;pwd=eee;database=wwl"
set rs=server.CreateObject ("ADODB.recordset")
rs.Open "select * from gdzcty ",cn
rs.locktype=3
rs.cursortype=1
%>
<%
rs.addnew
rs.fields("dm")=666666
rs.fields("xh")="mike"
rs.fields("saledate")=1999/05/07
rs.fields("usetime")=3
rs.fields("slzm")=12
rs.fields("slqc")=12
rs.fields("yzzm")=12
rs.fields("yzqc")=12
rs.fields("syzk")=1
rs.update
%>

(　错误提示为：ADODB.Recordset 错误 '800a0e79'

如果对象已经打开，则不允许执行应用程序所要求的操作。 ）