改这句代码
FileSys.CopyFile(ApplicationPath & "zp.bmp", ProjectPath & "\Attachments\" & r("身份证号码") & ".bmp",True) '照片复制到Attachments目录
改成
FileSys.CopyFile(ApplicationPath & "zp.bmp", "\\lenovo\e\相片\" & r("身份证号码") & ".bmp",True) '照片复制到Attachments目录