vb 实时错误3251当前记录不支持更新。。。 该如何解决

提示：
实时错误3251当前记录不支持更新。这可能是提供城西的限制，也可能是选择锁定类型不支持。
程序功能：修改并更新表
表：ID 州名 州内生产总值(万美元) 面积(平方公里) 人口 人均GDP(美元)
1 California加州 144061245 411013 35484453 40598
代码：rs.Open "select * from 各州信息 where ID=" & txtID.Text, conn, adOpenKeyset
txtID.SetFocus
rs.Fields(1).Value = txtName.Text
错误提示在上述的最后一行代码

rs.Open "select * from 各州信息 where ID=" & txtID.Text, conn, adOpenKeyset
这行代码改为：
rs.Open "select * from 各州信息 where ID=" & txtID.Text, conn

这要看到exesql这个自定义函数的内容才知道原因，如果其打开方式是只读的，那么自然是无法更新的（即只能查询，无法增删改）