*** 作必须使用可更新查询 SQL-VBA

舍弃此行：

RecSet.CursorLocation = adUseClient

或者像这样尝试：

RecSet.CursorLocation = adUseServer

请参阅MSDN上的CursorLocation属性（ADO）的“备注”部分：

“如果 CursorLocation 属性设置为 adUseClient ，则记录集将以只读方式访问，并且无法更新记录集到主机。”