SQL Server中image型数据如何显示在VB的Image控件里，我用ADO连接SQLServer,用image or pictureBox绑定ado，datafield设为哪个image字段，但是总说我bind失败，不知有那为大虾能帮忙解决

'image字段是二进制,但不能与VB中的控件交互数据,你可以用下面的方法把图片存入数据库和显示到picture上.
'这两个函数是磁盘文件和ADO的recordset的数据传输,然后用loadpicture加载到控件上.
'你自己看看怎么用,至于具体的使用你自己写吧.
Private Function DatabaseToFile(ByVal DataField As ADODB.Field, ByVal vFileName As String) As String
Dim fnum As Long, bytesleft As Long, bytes As Long
Dim tmp() As Byte
   
   fnum = FreeFile
   Open (vFileName) For Binary As fnum
   bytesleft = DataField.ActualSize
   
   Do While bytesleft
       bytes = bytesleft
       If bytes > 8192 Then bytes = 8192
       tmp = DataField.GetChunk(bytes)
       Put #fnum, , tmp
       bytesleft = bytesleft - bytes
   Loop
   Close #fnum
   
   
End FunctionPrivate Function FileToDatabase(ByVal vDataField As ADODB.Field, ByVal vFileName As String)
Dim fnum As Long, bytesleft As Long, bytes As Long
Dim tmp() As Byte
   
   fnum = FreeFile
   Open vFileName For Binary As fnum
   bytesleft = LOF(fnum)
   
   Do While bytesleft
       bytes = bytesleft
       If bytes > 8192 Then bytes = 8192
       ReDim tmp(1 To bytes) As Byte
       Get #fnum, , tmp
       vDataField.AppendChunk tmp
       bytesleft = bytesleft - bytes
   Loop
   Close #fnum
End Function