一运行 就死机

sunredday

一运行 就死机
Dim dbsTemp As DAO.Database
Dim rstQD As DAO.Recordset
Dim rstQD1 As DAO.Recordset

Set dbsTemp = OpenDatabase(strdir)
Set rstQD = dbsTemp.OpenRecordset("21清单文件名称", dbOpenTable, dbDenyWrite + dbDenyRead, dbOptimistic) '清单文件名称
Set rstQD1 = CurrentDb.OpenRecordset("21清单文件名称", dbOpenTable, dbReadOnly, dbReadOnly) '清单文件名称
rstQD1.MoveLast
rstQD1.MoveFirst
  With rstQD
  Do Until rstQD1.EOF
  .AddNew
        ![清单文件名称] = rstQD1![清单文件名称]
        ![清单文件路径] = rstQD1![清单文件名称]
   Loop
        .Update
'        .Bookmark = .LastModified
End With

sunredday

忘了MOVENEXT 了