无法更新，数据库或对象为只读

许久没学习了，一重新拾起就遇到问题。

If MsgBox("您确认要保存吗?", vbOKCancel + vbInformation, "提示") = vbOK Then
      
        Set rst = CurrentDb.OpenRecordset("product_xiaoshou", dbOpenDynaset)
        rst.AddNew

        rst("xiaoshou_date") = Me.xiaoshou_date.Value
        rst("product_name") = Me.product_name
        rst("product_code") = Me.product_code
        rst.Update
        rst.Close
        Set rst = Nothing

end if

表为链接表。

关键字段为自动编号。

一按保存按钮，保存确认提示倒是出来了，然后弹出运行错误如下：

运行时错误‘3027’。

无法更新。数据库或对象为只读。

我想不明白哪里不对。

谢谢大家