从DBF表中提取图片的问题！

Question

使用VB从dbf表中提取图片数据然后保存为jpg文件
使用下面的程序能够保存成功，但是图片无法显示！
第六个字段为图片数据
哪位高手帮帮忙！Private Sub Command1_Click()
Dim pic() As Byte
Dim conn As New ADODB.Connection
Dim rs As New ADODB.RecordsetPath = App.Path
conn.ConnectionString = "Provider=MSDASQL;Driver=Microsoft Visual Foxpro Driver;SourceType=DBF;SourceDB=" & Path & "\;"
conn.Open
rs.Open "select * from a.dbf", conn, adOpenKeyset And adFldLong, adLockReadOnlyReDim pic(rs(6).ActualSize)
pic = rs(6).Value
Open Path & "\1.jpg" For Binary As #1
Put #1, , pic
Close #1
rs.Close
conn.Close
End Sub

Answer 1

Private Sub Command1_Click()
Dim pic() As Byte
Dim conn As New ADODB.Connection
Dim rs As New ADODB.RecordsetPath = App.Path
conn.ConnectionString = "Provider=MSDASQL;Driver=Microsoft Visual Foxpro Driver;SourceType=DBF;SourceDB=" & Path & "\;"
conn.Open
rs.Open "select * from a.dbf", conn, adOpenKeyset And adFldLong, adLockReadOnlyReDim pic(rs(6).ActualSize)
pic = rs(6).GetChunk( rs(6).ActualSize )
Open Path & "\1.jpg" For Binary As #1
Put #1, , pic
Close #1
rs.Close
conn.Close
End Sub
是这样读的，但不能保证保存成功的就一定是正确的图片信息。