Paul,
This worked in a Microsoft Access Project file which uses ADO. You should be
able to reshape it to your needs. Substitute 'CurrentProject.Connection'
with your own connection object. The only restriction is that the the
thumbnail in TP needs to be in JPEG format.
Hope this helps
Allan
============================================
Function WriteJPG(idThumb As Long, Destination As String)
Dim objRecordset As New ADODB.recordset
Dim stream As New ADODB.stream
With objRecordset
.Open "thumbnail", CurrentProject.Connection, adOpenStatic,
adLockReadOnly, adCmdTableDirect
.MoveFirst
.Find "idThumb = " & CStr(idThumb)
If .EOF Then GoTo Finish
End With
With stream
.Type = 1 'adTypeBinary
.Mode = 3 'adModeReadWrite
.Open
.Write objRecordset("Thumbnail")
.SaveToFile Destination, 2 ' adSaveCreateOverwrite
.Close
End With
Finish:
Set stream = Nothing
objRecordset.Close
Set objRecordset = Nothing
End Function
============================================