vb6.0 怎样用image控件读取ACCESS中以二进制保存的图片

Dim con As New ADODB.Connection Dim RS As New ADODB.Recordset Dim ChunkSize As Long, Chunks As Long, Chunk() As Byte Dim i As Integer, j As Integer, MediaTemp As String ChunkSize = 10000 For i = 1 To List1.ListCount - 1 If Len(Dir(dbPath + "