主题：求助！急！窗口加照相功能

窗口中加照相功能步骤:管理项目中选窗口管理—按增加、按设计—加button按钮—双击该按钮—代码编辑器中加入代码，即

Dim c As new camera
Dim r AS Row = Tables("总表")

c.capture() '开始照相
If c.image IsNot Nothing Then '照相成功
     c.Save(ProjectPath & "Attachments\" &  r("编号") & ".jpg") ‘保存文件

     r("照片") = r("编号") & ".jpg”
End If

然后按确定—保存—应用。不知道错在哪儿死机。求助！拜托！