如何读取ole类型字段中的Word文件？

Question

 我用下面的代码从数据库（access）中读取数据（ole类型——Word文档）,未能成功，数据库连接没问题，请专家指教，谢谢！
  Private Sub s_ReadFile()
          Dim iStm    As ADODB.Stream
          Dim iRe     As ADODB.Recordset
          '打开表
          Set iRe = New ADODB.Recordset
          iRe.Open "select * from shiti", iConc, adOpenKeyset, adLockReadOnly
          iRe.Filter = "id=2"
            
          '保存到文件
          Set iStm = New ADODB.Stream
          With iStm
                  .Mode = adModeReadWrite
                  .Type = adTypeBinary
                  .Open
                  .Write iRe("timu")
                  .SaveToFile App.Path & "\cc.doc"
          End With
            
                  OLE1.SourceDoc = App.Path & "\cc.doc"
    
                  OLE1.Action = 1            
                  OLE1.SizeMode = vbOLESizeAuttoSize   '调节对象大小使其正好充满OLE容器控件
            
          '关闭对象
          iRe.Close
          iStm.Close
  End Sub
    
  Private Sub Command1_Click()
  Call s_ReadFile
  End Sub
    

Answer 1

iRe("timu").GetChunk(iRe("timu").ActualSize)

Answer 2

谢谢cuizm的指教，本人初学VB，请问你上面提供的代码怎么用，能否请你帮帮忙，给个完整的代码。我用的是access数据库，ole字段里的数据使用VB存入，现在想读取到控件OLE内并显示。再次谢谢了，也欢迎其他老师赐教！

Answer 3

自己解决了，加上下面一句就可以了“
     kill("c：\cc.doc")  '删除文件

Answer 4

自己解决了，加上下面一句就可以了:
    kill("c:\cc.doc")  '删除文件