filecopy 提醒拒绝的权限

filecopy 提示拒绝的权限
            CommonDialog1.ShowOpen
            LuJing = CommonDialog1.FileName
            Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data source=" & LuJing & ";Persist security info=false"
            Adodc1.RecordSource = "select * from NongduBiao"
            Adodc1.Refresh
            PathName = InputBox$("请输入备份文件的路径及文件名;  例如c:\db20120920.mdb")
           If PathName = "" Then
                  MsgBox "路径或文件名为空！", vbCritical, "错误"
           Else

            FileCopy LuJing, PathName      
  最后一句，总提示拒绝权限，不知道为什么                  
[解决办法]
文件不能被复制。
[解决办法]
文件或目录你的程序没有写权限
[解决办法]
文件被独占打开了，或者设置了只读标志，或者无权限（可能性较小），如果是被独占打开，则关闭后再复制，如果是只读，则复制前设置成不只读。