用改进后的数据前台覆盖改进前的数据库前台

先前做了一个仓库进销存管理的数据库，并且将前台放在了射映盘T盘里面，然后几个用户的电脑也都射映了T盘并且将T盘的前台复制到了用户自已的D盘里使用，当然我对前台里面版本进行了限制，也就是说如果将数据库前台进行改进后再放到T盘里面去的话，那么用户用以前的前台打开后将会提示版本过低不能使用，必须到T盘里面将改进后的前台再覆盖用户自已的D盘里面就可以使用了，

      我想在以前的前台里面写代码：当以前的前台在判断版本过低时能自动将射映盘T盘里的新版本前台覆盖用户自已D盘的低版本的前台。我用以下的代码不能实现，是因为D盘里面已经有了低版本的前台了，它却不能覆盖以前的低版本前台？请哪位老师指点，本人将非常感谢！

CCC = DLookup("版本", "系统参数")    '确定系统版本
      Gsmc = DLookup("当前版本", "当前版本")  
If CCC > Gsmc Then               '确定系统版本是否过低
Dim Backstr As String    
    Backstr = "T:\客户端\仓库管理系统.mdb"    
   CopyFile Backstr, "D:" & "\客户端\仓库管理系统 " & ".mdb", 1     '自动备份到"E"盘                
   DoCmd.Quit