自动备份数据库

求教:

 为何用下面代码在退出备份时，备份其他库能行，而退出备份本库不行。有何办法？（操作完成后退出就备份方便）

Private Sub 考贝_Click()
Dim a As String
Dim b, c As String
a = Format(Date, "yyyymmdd") '获取机器日期并格式化为********的格式
b = "文件"
c = "d:\BF\" & a & b & ".accdb"        '指定拷贝目录
FileCopy "d:\ACCESS\文件.accdb", c     '拷贝文件的路径
End Sub