将图片写入数据库,首先将文件读入一字节数组   
          Dim   bit()   As   Byte   
          Open   "C:\WINDOWS\安装程序.bmp"   For   Binary   As   #1   
          ReDim   bit(LOF(1))   As   Byte   
          Get   1,   1,   bit   
          Close   1   
  '然后将字节数组的内容写入数据库即可           
          Dim   cnn   As   New   ADODB.Connection,   rst   As   New   ADODB.Recordset   
          cnn.Open   "Provider=SQLOLEDB.1;Persist   Security   Info=False;User   ID=sa;Initial   Catalog=Northwind;Data   Source=(local)"   
          rst.Open   "T1",   cnn,   adOpenKeyset,   adLockOptimistic   
          rst.AddNew   
          rst("F1").AppendChunk   bit   
          rst.Update  http://topic.csdn.net/t/20000614/09/11801.html