程序代码：

Dim Mst As New ADODB.Stream

'数据库连接略，根据你自己的数据库设置即可
RS.Open "select * from 数据表", cn, 3, 2
  RS.AddNew
  Mst.Type = adTypeBinary
  Mst.Open    '打开Mst对象
  If Text2.Text <> "" Then Mst.LoadFromFile Text2.Text   'Mst对象将图片内容转换成二进制数据
  'Text2.Text 是硬盘中选择的图片路径+文件名+扩展名
  RS.Fields("图片") = Mst.Read   '将二进制数据存储在数据表的【图片】Image数据类型的字段，Access数据库存储在【OLE 对象】的字段即可。
  RS.Fields("扩展名") = SSR      'SSR是取得的图片的扩展名，含 . 号,例如  .jpg
  '将图片文件的扩展名存储在【扩展名】这个字段
  RS.Update
  Mst.Close
  RS.Close
      MsgBox "图片已经存储到数据库了！"