添加记录时出现这样的异常提示

添加记录时出现这样的错误提示
ADODB.Recordset   错误   '800a0cb3 '  

当前记录集不支持更新。这可能是提供程序的限制，也可能是选定锁定类型的限制。  

/User/Save.asp，行61  

代码：
        Dim   Sql,Rs
        Set   Rs=Server.CreateObject( "ADODB.RecordSet ")
                Sql= "Select   Top   1   *   From   User   Where   UserName= ' "&UserName& " ' "
                Rs.Open   Sql,Conn,1,3
        If   Not(Rs.Eof   And   Rs.Bof)   Then                                                
                Rs.Close:Set   Rs=Nothing
Response.Write( " <script> alert( '\n已存在相同的帐户. ');window.history.back(); </script> ")
                Response.End
        End   If
        Rs.AddNew       '这是第61行
        Rs( "UserName ")=UserName
        Rs( "BY_Pwd ")=md5(Pwd1,32)
        Rs( "Question ")=Question
        Rs( "Answer ")=Md5(Answer,32)
        Rs.Update
        Rs.Close
        Set   Rs=Nothing
请问是什么原因？数据库是ACCESS的。

[解决办法]
Rs.AddNew之前加rs.edit试试
[解决办法]
看一下你数据库所在目录的权限设置，是否受权验IUSER_xxx
[解决办法]
Sql= "Select Top 1 * From [User] Where [UserName]= ' "&UserName& " ' "

......
Rs.Open Sql,Conn,2,3
[解决办法]
Rs.Open Sql,Conn,1,3

-->

Rs.Open Sql,Conn,3,3
[解决办法]
检查一下，是否有主键