vb在数据库中储存图片并显示出来

 '**************************读图片文件**************************************  
  Sub   GetPicfromDB(cn   As   ADODB.Connection)  
          On   Error   Resume   Next  
          Dim   fld   As   Field  
          Dim   strTemp   As   String  
          Dim   stm   As   ADODB.Stream  
          Set   stm   =   New   ADODB.Stream  
                                                                              'strTemp   =   "c:\temp.bmp"  
          Set   rs1   =   New   ADODB.Recordset  
          rs1.Open   "select   *   from   rs_http   where   htbh='"   &   frm_manage.Grid2.TextMatrix(frm_manage.Grid2.RowSel,   0)   &   "'",   cn,   ,   ,   adCmdText  
                  While   Not   rs1.EOF  
                            '*********将数据库中的文件读到硬盘上*************************  
                        '   strTemp   =   App.Path   +   "\temp\"   +   rs1!Name   '`临时文件,用来保存读出的图片  
   
                          With   stm  
              &nb