Me.BackgroundImage = New Bitmap(ms)

+--------------+----------+
 | description  | picture  |
 +--------------+----------+
  |     pic1     |  BINARY  |
  +--------------+----------+
  |     pic2     |  BINARY  |
  +--------------+----------+

cmd.Parameters.Add("p1", OleDb.OleDbType.Integer).Value = strPicName 'Get image

Dim con As New OleDbConnection _
       ("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\PictureTest.mdb;")
        Dim da As New OleDbDataAdapter _
         ("Select * From info", con)
        Dim MyCB As OleDbCommandBuilder = New OleDbCommandBuilder(da)
        Dim ds As New DataSet()
        Dim Picture As Object
 
        con.Open()
        da.Fill(ds, "info")
        Dim myRow As DataRow
        myRow = ds.Tables("info").Rows(0)
 
        Dim MyData() As Byte
        MyData = myRow("picture")
        Dim K As Long
        K = UBound(MyData)
        Picture = MyData
 
 
        Dim fs As New FileStream _
         ("C:\Gone Fishing2.gif", FileMode.OpenOrCreate, _
          FileAccess.Write)
        fs.Write(MyData, 0, K)
        fs.Close()
 
        fs = Nothing
        MyCB = Nothing
        ds = Nothing
        da = Nothing
 
        con.Close()
        con = Nothing
        MsgBox("Image retrieved")

)        ÿÿÿÿBitmap Paint.Picture 
        PBrush          Â BMöÁ   _
    6