VB连接数据库对查询结果修改时的问题

Question

麻烦帮忙看下代码中的问题
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim cmd As New ADODB.Command
Private Sub Command1_Click()
Call recchaxun
End Sub
Private Sub recchaxun()
Set rs = cn.Execute("select * from t3 where sl= " & Trim(InputBox("请输入查询数量")) & " ")
Text2.Text = rs.Fields(1)
Text1.Text = rs.Fields(0)
End SubPrivate Sub Command2_Click()
Call upd
End Sub
Private Sub upd()
bh = Text1.Text
rs!bh = bh
rs.Update
End Sub
Private Sub Form_Load()
cn.Open "dsn=access_db;uid=;psw="
rs.Open "t3", cn, adOpenDynamic, adLockOptimistic
End Sub在执行完查询后 对查询结果进行修改时 报错" 3251 当前记录集不支持更新,这可能是提供程序的限制,也可能是选定锁定类型的限制"

Answer 1

打开方式，不行，使用  rs.open ("select * from t3 where sl= " & Trim(InputBox("请输入查询数量")) & " "), cn, 3, 3
  

Answer 2

把Set rs = cn.Execute("select * from t3 where sl= " & Trim(InputBox("请输入查询数量")) & " ") 改成rs.open ("select * from t3 where sl= " & Trim(InputBox("请输入查询数量")) & " "), cn, 3, 3提示对象打开时不允许操作,在Private Sub Form_Load()
cn.Open "dsn=access_db;uid=;psw="
rs.Open "t3", cn, adOpenDynamic, adLockOptimistic
End Sub
已经打开了对象 有更好的办法么