在vb中怎么显示access数据库的照片字段

给你个示例,下面是读取数据库中的二进制数据,并存放到指定的地方的,读取图片的,应该差不多
strSQL = "select * From CodeFile where CodeID=" & ID
Rs.Open strSQL, Conn, 1, 3
While Not Rs.EOF
FileName = Rs("FileName").Value
Str = Rs("FileContent").GetChunk(Rs("FileContent").ActualSize)
Call SaveFile(Str, App.Path & "\Tmp\" & FileName)
Rs.MoveNext
Wend

'下面是SaveFile的过程

Public Sub SaveFile(Str, fName)
Dim objstream As New ADODB.Stream
'--------------建立ADODB.Stream对象，必须要ADO 2.5以上版本---------
objstream.Type = 1
'-------------以二进制模式打开-------------------------------------
objstream.Open
'--------------------将字符串内容写入缓冲--------------------------
objstream.Write Str
'--------------------将缓冲的内容写入文件--------------------------
objstream.SaveToFile fName, 1
objstream.Close
Set objstream = Noth