解决方法:多加个参数dbSeeChanges,如下 CurrentDb.Execute "SQL语句", dbSeeChanges
Set rst = CurrentDb.OpenRecordset(strSQL,dbOpenDynaset,dbSeeChanges, dbOptimistic)