紧急求助:如何取出ACCESS中的OLE并把内容粘贴到Word,内容不止是文字

ACCESS库中一字段为OLE型,里面存储的是word文档中的内容(二进制的)
现在需要把它取出来,粘贴到打开的word文档中.
    设想的步骤是: 取出二进制字节流-->放入剪切板-->拷贝到word文档
不过目前出现了问题:一进行内存拷贝就退出,怎么办,哪位指点一下?
代码如下:
recAppend.Open "select * from test", g_Adoconn, 3, 3
    recAppend.MoveLast
    adoStream.Open
    adoStream.Type = adTypeBinary
    adoStream.Write recAppend.Fields.Item(2).GetChunk(recAppend.Fields.Item(2).ActualSize)
    
    hWndOwner = Me.hWnd
    lFormatId = GetClipboardIDForCustomFormat("Rich Text Format")
    If (lFormatId <> 0) Then
        If (OpenClipboard(hWndOwner)) Then
                lSize = adoStream.Size
                adoStream.Position = 0
                ReDim bData(0 To lSize) As Byte
                bData = adoStream.Read(lSize)
                EmptyClipboard
                hGlobal = GlobalAlloc(GMEM_MOVEABLE, lSize + 4)
                If hGlobal <> 0 Then
                    lPtr = GlobalLock(hGlobal)
                    CopyMemory ByVal lPtr, lSize, 4
                    If lSize <> 0 Then
                        CopyMemory ByVal lPtr + 4, bData(0), lSize
                    End If
                    GlobalUnlock hGlobal
                End If
                CloseClipboard
            End If
        
    End If
--------------------编程问答-------------------- ding

补充：VB ,  API