通过测试，分数有你来定

好像需要ado2.5以上才支持方法很好使的！Dim mstream As ADODB.Stream写入
Set mstream = New ADODB.Stream
mstream.Type = adTypeBinary
mstream.Open
mstream.LoadFromFile 文件名
rs.Fields("字段名").Value = mstream.Read
rs.Update读出
Set mstream = New ADODB.Stream
mstream.Type = adTypeBinary
mstream.Open
mstream.Write rs.Fields("字段名").Value
mstream.SaveToFile "c:\publogo.gif", adSaveCreateOverWrite