求救：记录更新失败（在线等待）

目的：
根据text的值，查找满足条件的记录，再将更改后的值回写到表中。

运行时报错：
字段不能更新，因为其他的用户或处理程序锁定了对应的记录或数据表。（错误 3164）

源码：
Private Sub Command3_Click()
Dim db As Database
Dim rs As Recordset

Set db = OpenDatabase(App.Path & "\mydatabase.mdb")
Set rs = db.OpenRecordset("select * from 表1 where 名称='" & Text1.Text & "'")

rs.Edit
rs.Fields("编号") = Text2.Text
rs.Fields("名称") = Text3.Text
rs.Fields("地址") = Text4.Text
rs.Fields("电话") = Text5.Text
rs.Update
MsgBox ("数据已更新！")

rs.Close
End Sub

请问：问题出在什么地方？多谢！