Dim Mst As Stream Dim rs As ADODB.Recordset ---------------------------------------- Set Mst = New ADODB.Stream Mst.Type = adTypeBinary '二进制类型 Mst.Open Mst.LoadFromFile Mystr '加载图片,Mystr为图片路径 ---------------------------------------- rs.fields("images")= Mst.Read '保存到数据库