如何将数据库中的图片(二进制)，读出并显示在界面的Image控件？[VB6.0]

Public strImgN As String '图片路径 把picture或者image存储成图片 Public BImg() As Byte '#########写入数据库####### Public Sub Image() ' On Error Resume Next Dim IntNum As Integer IntNum = FreeFile Open strImgN For Binary As #IntNum