vb 怎么操作mdb 文件存储图片文件

vb 如何操作mdb 文件存储图片文件？
我 e 盘有张图片 123.jpg 同样有个access数据库文件 456.mdb 

我用 vb6.0 的 外接程序 打开 外接程序管理器，开启了456.mdb 文件，在其中建了一张表名为“图片”,包含2个字段
1 图片名称（text)
2 图片代码（binary)

图片路径有了，数据库文件和表都有了，字段也设置好了，

请问我如何把 123.jpg 存进 456.mdb 的“图片”表中去呢？
请问如何把mdb里面的图片显示到picturebox控件中去呢？请提供代码！谢谢！

[解决办法]
VB直接保存和显示ACCESS数据库中的图像数据
[解决办法]
Dim adocn As New ADODB.Connection
Dim adors As New ADODB.Recordset

Dim strSql As String
Dim Chunk() As Byte
Dim filelong As Long

Private Sub Command1_Click()
'On Error Resume Next
If adors.State = adStateOpen Then adors.Close

adors.Open "select * from 登陆图片"
'保存文件到数据库中
If Trim(Text1.Text) = "" Then
MsgBox "未选择文件.!!", vbInformation + vbSystemModal, "保存出错"
Exit Sub
End If
Open Trim(Text1.Text) For Binary Access Read As 1
filelong = LOF(1)
If filelong = 0 Then Close 1: Exit Sub
adors.AddNew
adors("图片名") = Text2 '增加
ReDim Chunk(filelong)
Get 1, , Chunk()
adors("图片代码").AppendChunk (Chunk())
adors.Update
Close 1
Call ShowPicture
adors.Close
 
list1show
End Sub

Private Sub ShowPicture()
Dim filename1 As String
' On Error Resume Next
Open "pictemp" For Binary Access Write As 1
filelong = adors!图片代码.ActualSize
ReDim Chunk(filelong)
Chunk() = adors("图片代码").GetChunk(filelong)
Put 1, , Chunk()
Close 1
filename1 = "pictemp"
Picture1.Picture = LoadPicture(filename1)
Image1.Picture = LoadPicture(filename1) '可以使图片大小与控件一样
End Sub
参考