参考
Private Sub Command1_Click()
Dim pic As Picture
Set pic = LoadPicture("d:\1.bmp")
Picture1.Picture = pic
End Sub
Private Sub Command1_Click()
Dim pic As Picture
Set pic = LoadPicture("d:\1.bmp")
Picture1.Picture = pic
End Sub
dim a() as byte
redim a(rs("pic").ActualSize) as byte
rs("Pic").getchunk a
open "c:\x.bmp" for binary as #1
put #1 ,1,a
close #1
pic1.picture=loadpicture("c:\x.bmp")