读出sql图片，直接显示??

直接从Picture1显示图片，怎么搞。
不要在硬盘上生成一个text.jpg图片文件？？？？？？？？？？？
  Dim rs1 As New ADODB.Recordset
  rs1.Open "select   *  from  配件 Where id='" & id & "'", conn, adOpenKeyset, adLockReadOnly
  Set iStm = New ADODB.Stream
  With iStm
  .Mode = adModeReadWrite
  .type = adTypeBinary
  .Open
  .Write rs1("图片")  .SaveToFile "d:\text.jpg"
  End With

  Picture1.Picture = LoadPicture("d:\text.jpg")
   conn.Close