向高手求救!!!

paul888

我的一个朋友,在ACCESS的VBA中写了以下这段:


   Dim E As Date
   E = Now()
   If E >= #12/19/2006# Then
       DoCmd.DeleteObject acTable, "产品"
   DoCmd.DeleteObject acTable, "产品1"
    DoCmd.DeleteObject acTable, "成品出库"
     DoCmd.DeleteObject acTable, "成品出库编号"
      DoCmd.DeleteObject acTable, "成品入库"
       DoCmd.DeleteObject acTable, "成品入库编号"
        DoCmd.DeleteObject acTable, "进料出库"
         DoCmd.DeleteObject acTable, "进料出库编号"
          DoCmd.DeleteObject acTable, "进料入库"
         DoCmd.DeleteObject acTable, "进料入库编号"
          DoCmd.DeleteObject acTable, "人员"
           DoCmd.DeleteObject acTable, "物料查空"
            DoCmd.DeleteObject acTable, "物料出库"
             DoCmd.DeleteObject acTable, "物料出库编号"
              DoCmd.DeleteObject acTable, "物料入库"
               DoCmd.DeleteObject acTable, "物料入库编号"
                DoCmd.DeleteObject acTable, "物料过空"
                 DoCmd.DeleteObject acTable, "月份"

                 
    End If
   
   RS.MoveFirst

导致现在我的数据库资料都没有了,哪位高手能帮忙恢复我的数据库,谢谢!!!

一点通

1.请修改标题,写出简要内容

2.启用备份