如何向VB数据库内添加照片，数据库为access?

Question

本来用VB编好了数据库，又想着在借用窗体内添加一张照片，作为员工的借用依据，试着在网上查了些资料，无奈自己水平都换给老师了，现在圈出的地方为本人额外添加的内容，现在运行后老是报错，二进制的图片形式好像已写入数据库，但是跟我原来的数据不在一行，求大神给看看，非常感谢。

Answer 1

1、建立一个ACCESS数据库。然后创建新表，比如你想把图片放在名为 “图片”字段中，那么设置 字段 数据类型 为“OLE 对象”。
2.VB代码内容
Set Cn = New ADODB.Connection
Cn.ConnectionString = ";DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & App.Path & "\aaa.MDB"
Cn.Open
Set Rs = New ADODB.Recordset
Rs.Open "select * from stock", Cn, adOpenStatic, 3
Set mst = New ADODB.Stream
mst.Type = adTypeBinary
mst.Open
mst.LoadFromFile mystr
Rs.AddNew
Rs.Fields("图片").Value = mst.Read
Rs.Update
Rs.Close
Cn.Close

Answer 2

保存图片文件名就可以。然后在通过文件名调出图片