Access VBA代码 将图片转化为二进制然后存入表中

我想要在access表中输入一个人的头像（照片），我现在知道将字段设置为OLE对象，但是接下来如何操作，我需要一个VBA代码，能够将照片转换为二进制格式，存入至本字段中，求各位能够帮助我，给我一段这样的VBA代码进行学习，新手一枚。谢谢！！

http://club.excelhome.net/thread-617365-7-1.html
http://www.excelpx.com/thread-139472-1-1.html