vb高手进来下

Private Sub cmdSave_Click()
On Error GoTo Errhandle
Dim s() As Byte

dlg.ShowOpen
Open dlg.FileName For Binary Access Read As #1
s = InputB(LOF(1), #1)
Close #1

rs.Open "select * from vbtest", cn, adOpenDynamic, adLockPessimistic
rs.AddNew
rs!Photo = s
rs.Update
rs.Close

Exit Sub
Errhandle:
MsgBox Err.Description
Resume Next
End Sub

'从数据库中读取图片，显示在PictureBox控件中
Private Sub cmdOpen_Click()
On Error GoTo Errhandle
Dim s() As Byte

rs.Open "select * from vbtest", cn, adOpenDynamic, adLockOptimistic

Open "d:\~image.tmp" For Binary Access Write As #1
s = rs!Photo
Put #1, , s
Close #1

Picture1.Picture = LoadPicture("d:\~image.tmp")
Kill "d:\~image.tmp"