I've got an Access DB I'm reading through a Word VBA macro that contains an
image field.

I'm using bookmarks to navigate to the fields and replace the contents with
data from the database query.  The text fields work great, the image field
has given me a challenge.

For the image, I am able to select the picture box and do a Selection.Paste
to paste from the clipboard. The problem is that I had to manually copy the
image to the clipboard first.

What I'd like to do is somehow get the image from the recordset field
(populated by the query) into the clipboard so it can be pasted using the
Selection.Paste function.

Maybe I'm overcomplicating this, but I can't seem to find any references to
any examples anywhere.

Any help here would be greatly appreciated.

I've attached a code snipet below.

Dennis  

If regPhotoDBPath <> "" Then
   Set dbPhotos = OpenDatabase(Name:=regDBPath & "\Photos.mdb")
   Set rdMemberPhotos = dbSIMSPhotos.OpenRecordset("SELECT tblMemberPhoto.
CAPID, tblMemberPhoto.MemberPhoto FROM tblMemberPhoto WHERE tblMemberPhoto.
CAPID = " & CAPID & " ;")
   rdMemberPhotos.MoveFirst
   If (IsNull(rdMemberPhotos.RecordCount) = False) Or (rdMemberPhotos.
RecordCount > 0) Then
      '------------------------------------------
      ' Member Photo
      '------------------------------------------
       If IsNull(rdMemberPhotos.Fields(1).Value) = False Then
           ' Get the Photo from the recordset
           MemberPhoto = rdMemberPhotos.Fields(1).Value
           ' Move to the spot in the document where the photo will be
pasted
           ActiveDocument.Bookmarks("JOINED_MM").Select
           ' Select the picture box
           Selection.MoveRight Unit:=wdCell
           ' <code to copy the image to the clipboard would go here>
           ' Paste the image from the clipboard in the picture box (this
works if the image is already in the clipboard)
           Selection.Paste
          MsgBox "Paste Photo"
       Else
           MsgBox "Null Photo"
       End If
   Else
       MsgBox "No Records Returned"
   End If
   ' Close the temporary recordsets and the Access database connection
   rdMemberPhotos.Close
   dbSIMSPhotos.Close
End If