主题：烦请帮忙简化一下视频拍照代码，求解！

Dim c As new camera

c.capture() '开始照相

If c.image IsNot Nothing Then '照相成功

    c.Save("c:\abc.bmp") '保存文件

FileSys.CopyFile(ApplicationPath & "abc.bmp", ProjectPath & "\Attachments\" & r("身份证号码") & "摄像" & ".bmp",True) '照片复制到Attachments目录

r("摄像照片") = r("身份证号码") & Date.today & "摄像" & ".bmp"

End If

期待高手帮我把这个代码简化一下  直接将这个代码改成

将摄像头拍照后的照片直接保存到表A中的摄像照片列里 保存名字为A表中身份证号码加当前时期加摄像.bmp