请帮忙看看以下代码，程序提示运行时错误‘3251’

eyewitnes

请帮忙看看以下代码，代码用于ADP中。需要在修改treeview或者listview的标签后对后台数据进行修改
程序提示运行时错误‘3251’
当前记录集不支持更新。这可能是提供程序的限制，也可能是选定锁定类型的限制

运行环境：window xp+office2003+sql2000

Public Function AfterEditControlLable(strSource As String, strKey As String, NewStr As String)
Dim conn As New ADODB.Connection
'设置conn连接对象为当前打开的连接
Dim rs As New ADODB.Recordset
Dim strSql As String

Set conn = CurrentProject.Connection
strSql = "select * from " & strSource

rs.Open strSql, conn, adOpenDynamic
       rs.Find "id =" & Mid(strKey, 2)
          rs!Name = NewStr      '程序到这里出错
          rs.Update
          rs.Close
    Set rs = Nothing
   
End Function
是不是在treeview或者listview打开表之后就不能对表内的数据进行修改？如果是这样的话有什么办法可以实现这个修改的功能？
现在考虑用sql语句对表进行更新，但还是想知道上面的问题是怎么回事

[ 本帖最后由 eyewitnes 于 2007-8-9 11:19 编辑 ]

gnoy

十 有 八九 RS没有FIND的到。

eyewitnes

find到了啊，我看过rs!NAME的值是对的啊

hi-wzj

提示已经说得很清楚了
当前记录集不支持更新。这可能是提供程序的限制，也可能是选定锁定类型的限制

eyewitnes

我查过，表是可更新的，"select * from " & strSource 出来的视图也是可更新的，那么这个限制应该是哪里出问题？我对adodb不熟悉，能麻烦老大帮帮忙吗？是不是这里rs.Open strSql, conn, adOpenDynamic出问题？