Provate così....è un altro modo...
ma non so rispetto ai vostri quali siano le differenze

Set fs = CreateObject("Scripting.FileSystemObject")

fs.CopyFile "\\nmi5099\Copia\nomefile.mdb", "\\nmi5099\Pianificazione\"

é nel caso si voglia copiare una cartellla si usa copyfolder

buon 2005