插入一个图片对象
rm.Image = GetImage(projectPath & "Attachments/" & CurRow("头像")) '设置图片
http://www.foxtable.com/webhelp/scr/1182.htm