Recordset.Update 数据库或对象是只读的

不确定这是否会按照我想要的具体情况起作用。该场景是文本框填充了表中的数据，用户编辑记录并单击按钮保存。

Dim cdb As DAO.Database, rstEdit As DAO.Recordset
Set cdb = CurrentDb
DataValues = "SELECT * FROM Companies, Link_Table WHERE Companies.CompanyID =  " & SelectedValue & ";"
Set rstEdit = CurrentDb.OpenRecordset(DataValues, dbOpenSnapshot)

With rstEdit
 OldCompanyName = !CompanyName
 OldCompanyDescription = !Description
 OldFriendlyName = !FriendlyName
 OldAddressLine1 = !AddressLine1
 OldAddressLine2 = !AddressLine2
 OldAddressLine3 = !AddressLine3
 OldTown = !Town
 OldPostcode = !AddressPostcode
 OldCounty = !AddressCounty
 OldMainTelephone = !MainTelephone
 OldMainEmail = !MainEmail
 OldWeb = !WebAddress

'不确定这是否有必要。示例中引用了它，但不确定为什么？ ^'

 !CompanyName = NewCompanyName
 !Description = NewCompanyDescription
 !FriendlyName = NewFriendlyName
 !AddressLine1 = NewAddressLine1
 !AddressLine2 = NewAddressLine2
 !AddressLine3 = NewAddressLine3
 !Town = NewTown
 !AddressPostcode = NewPostcode
 !AddressCounty = NewCounty
 !MainTelephone = NewMainTelephone
 !MainEmail = NewMainEmail
 !WebAddress = NewWeb
 .Update
End With

但是，单击“保存”按钮时，出现错误，指出数据库或对象是只读的，我不确定原因。据我所知，它没有在任何地方开放，也不应该以任何理由开放！希望有人能够阐明这个问题。该表有一个主键集，即 CompanyID，但在例程中并未使用它。

类型参数dbOpenSnapShot in:

Set rstEdit = CurrentDb.OpenRecordset(DataValues, dbOpenSnapshot)

使 rstEdit 作为只读记录集（或快照）打开。考虑使用dbOpenDynaset反而。