access copyfile 命令提示错误70 权限受限

 咨询
代码为access数据库按钮指定数据库备份功能

------------------------------------------

Option Compare Database

Private Sub Command36_Click()
Dim rdb As String, ddb As String
Dim result As Integer
Dim dbase As Object
Set dbase = CreateObject("scripting.filesystemobject")
rdb = Application.CurrentProject.Path & "\薪酬查询系统1.accdb"
   With Application.FileDialog(msoFileDialogSaveAs)
   .Title = "请指定要保存的数据库文件名"
   '.Filters.Add "access数据库","*.accdb"
   .AllowMultiSelect = False
   .InitialFileName = CurrentProject.Path & "\"
   result = .Show
   If result <> 0 Then
   ddb = .SelectedItems.Item(1)
   End If
   End With
   If ddb = "" Then
   MsgBox "您未指定备份数据库名称，请重新备份" & ddb, vbOKOnly + vbInformation, "数据库备份"
   Else
dbase.copyfile rdb, ddb
  MsgBox "数据库已保存至" & ddb, vbOKOnly + vbInformation, "数据库备份"
   End If
   Set dbase = Nothing
End Sub
--------------------------------------------

上述代码执行中，如在文件保存对话框中输入新文件名
则提示
错误70 拒绝权限
怎么修改