窗体修改指定数据出错

Dim rs As DAO.Recordset

Dim str As String

Set rs = CurrentDb.OpenRecordset("select * from 信息表 where [型号] like '" & Me.Text_型号 & "'", dbOpenDynaset)

If rs.RecordCount = 0 Then

MsgBox "没有此人记录"

Else

rs.已生产数量 = Me.Text_开始码号

rst.Update

rs.Close

Set rs = Nothing

End If

End Sub