备份数据库的问题

Question

 Dim ws As Workspace
    Dim db As Database
    Dim rs As Recordset    For Each ws In Workspaces
        For Each db In ws.Databases
            For Each rs In Data.Recordsets
                rs.Close
                Set rs = Nothing
            Next
            Data.Close
            Set db = Nothing
        Next
        ws.Close
        Set ws = Nothing
    Next
FileCopy App.Path & "\data.mdb", "d:\data.mdb"
Me.MousePointer = 0
MsgBox "数据已备份完毕"出现70错误，拒绝的权限，怎么修改才行，还有怎么编写代码还原数据库的方法，谢谢！

Answer 1

可能 d:\data.mdb 已经存在，并且开启使用中所以不让你复制！