将图片写入数据库,首先将文件读入一字节数组
举个例子:
    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
没问题的,加分啊:) 
读出来也差不多!