图片存入数据库

'把图片读入数据库中
Dim PicValue() As Byte
Open "C:/1.jpg" For Binary As #1
ReDim PicValue(LOF(1)) As Byte
Get 1, 1, PicValue
Close 1
Rs.Open "图片表", Con, , adLockPessimistic
    Rs.AddNew
        ……
        Rs("图片").AppendChunk PicValue
    Rs.Update
Rs.Close

'从数据库中显示出图片的方法：
在窗体上添加Adodc，并建立好数据库连接，画一个Picture，设置DataSource为Adodc1，DataField为图片字段，就可以了。