为什么不能删除数据库中的记录？

Question

代码：
     With moveRs
            .Open "select * from " & tablemove & "", conser, adOpenDynamic, adLockOptimistic
            .AddNew
            !empid = strempid
            !datetime = datetime
            !machineno = lvcon.ListItems(i).SubItems(2)
            .Update
            .Close
            .Open "select * from " & table & " where empid = " & strempid & " and DateTime = datetime   and machineno = " & strmachineno & "", conser, adOpenDynamic, adLockOptimistic
            .Delete
            .UpdateBatch adAffectAllChapters
         End With
         moveRs.Close在一个数据库中添加成功，但却不能在另一个数据库中删除记录，什么原因？