我获得了图片的二进制数据, 怎么在PictureBox和Image中显示?

Question

使用Internet Transfer Control+Picture Control/Image Control+rs绑定
Private Sub Command1_Click()
    Dim strURL As String
    Dim PicBits() As Byte
    Dim intFile As Integer
    
    strURL = "http://localhost/win2000.gif"
    
    PicBits() = Inet1.OpenURL(strURL, icByteArray)
    
    Dim oRs As Object
    Set oRs = CreateObject("ADODB.Recordset")
    oRs.Fields.Append "Image_File", 205, 16    
    oRs.Open
    oRs.AddNew
    oRs.Fields("Image_File").AppendChunk PicBits()
    oRs.Update
    
    Set Picture1.DataSource = oRs
    Picture1.DataField = "Image_File"
    oRs.Close
    Set oRs = Nothing
        
    
End Sub