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