一直以来，大多人喜欢用Stream保存图片到数据库。
其实，直接用insert就可以了。
Dim sTemp As String
sTemp = "insert into mypic(pic) values(?)"
dim PicB() as byte
dim FileID as long
fileid=freefile
open "c:/test.bmp" for binary access read as #fileid
redim picb(lof(fileid))
get fileid,picb
close #fileid
dim Con as new connection
dim CMD as new command
con.connectionstring ="数据库连接字符串"
con.open
cmd.activeconnection=con
cmd.commandtext= stemp
cmd.commandtype=adcmdtext
cmd.parameters(0).type=adbinary
cmd.parameters(0).value=picb
cmd.execute
con.close
set cmd=nothing
set con=nothing
代码很简单，不需要多解释。
程序在VB6+SQL Server上测试通过。