dim constr,mycon,myrs
set myrs=server.createobject("adodb.recordset")
set mycon=Server.CreateObject("ADODB.Connection")
mycon.Open "Provider = Microsoft.Jet.OLEDB.4.0;User Id=admin;jet OleDB:Database password=test;Data Source = " & +server.mappath(path+"db1.mdb")
On Error Resume Next
myrs.open "select * from UsersEx order by UserID desc ",mycon,1,CN_RW
dim temp
temp= myrs("UserID")
myrs.addnew()
myrs("UserID")=myrs("UserID")+1
myrs("RoleType")=3
myrs.update
myrs.close
if Err <> 0 then Response.Write (Err.Description& "<br><br>")
Err.Clear
可以查询，但执行插入、修改时都无效，Err.Description=“当前记录集不支持更新。这可能是提供程序的限制，也可能是选定锁定类型的限制。"
解决办法：
检查是否正确配置了数据库文件所在文件夹的权限；并且确保在测试时数据库结构没有处于编辑状态。
文件夹权限检查方法：
数据库文件所在的目录权限对特定的用户没有开启足够的权限，你只能进行只读访问，一般出现这种情况的文件系统为NTFS。
首先，你找到数据库所在目录，也可以是上层目录，然后设置文件夹 安全 属性，把everyone或者“IUSER_你的机器名”的权限设置成完全即可。
如果你在文件夹属性里看不到“安全”选卡，则按照如下方法设置：
1.文件夹——〉属性；或，资源管理器——〉工具——〉文件夹选项
2.在“查看”选项卡中不钩选“使用简单文件共享”
3.这样，你在XP下NTFS分区文件夹右键，也能看到如WIN2000一样的“安全”选项卡了
4.在“安全”选项卡下，点击“添加……”，跳出“选择用户和组”对话框
5.然后点击“立即查找”，在下图所示的列表中选择“IUSR_”（下划线之后是你的计算机名）
6.之后在“安全”选项卡中就会出现“Internet来宾帐户”，将这个帐户的权限设置为“可修改”和“可写入”
