高手帮我看一下我写的这段SQL语句哪里错了，不用修改数据。

Question

run-time error '3251':
当前记录集不支持更新。这可能是提供程序的限制，也可能是选定锁定类型的限制
'定义数据连接
Dim conn As New Adodb.Connection
'定义数据路径
     Dim strdsn As String
     strdsn = "Provider=Microsoft.Jet.OLEDB.4.0;" _
                   + " Data Source=" + App.Path + "\yugui.mdb; "  'ACCESS数据库的路径
conn.Open strdsn  '打开数据库
'开始读取datacombo1的数据读取
    Dim rs As Adodb.Recordset
    Dim strSQl As String
    strSQl = "select * from desktop"    Set rs = conn.Execute(strSQl)
 
rs("name") = Text1.Text
rs.Update

Answer 1

conn.Open strdsn  '打开数据库 ' 有问题
Set rs = conn.Execute(strSQl) ' 有问题，用 rs.Open

Answer 2

conn.execute "update desktop set [name]='"& text1.text &"'"

Answer 3

conn是个Adodb.Connection，而不是ADODB.Recordset，所以不能用Set rs = conn.Execute(strSQl)!
可改为楼上的 Leftie(左手,为人民币服务) 的方法！