求教！关于VB+sql图片存取问题

一笔数据就三张图片 数据量大话那就是找死

重点代码
Sub WritePicture()
Dim PBag As New PropertyBag
Dim B() As Byte
PBag.WriteProperty "Picture", Image1.Picture '读取Image1.Picture 图片并写到 Pbag 容器中
B = PBag.Contents '获取容器Byte 到 B() 数组中
'************************************ 表更新数据
RS.Fields("Pic").AppendChunk B
RS.Update
MsgBox "图片保存完成!"
End Sub
Sub ShowPicture()
Dim PBag As New PropertyBag
Dim B() As Byte
PBag.Contents = RS.Fields("pic").Value '指定 PBag容器的内容
Set Image1.Picture = PBag.ReadProperty("Picture") '读取容器中的图片
'Call PutImage(Image1, Picture1)
End Sub