请问如何把WORD文件用二进制写到数据库中

本人在写一个编程，想把编辑完的WORD文件放到数据库中去。而是代码如下
Option Explicit

Public WithEvents mobjWordApp As Word.Application
Private WithEvents mobjDoc As Word.Document

Private Sub mobjDoc_Close()
Dim conn As ADODB.Connection
Dim tempOS As ADODB.Recordset
Dim mStream As ADODB.Stream
Set mStream = New Stream
Set conn = New ADODB.Connection
conn.ConnectionString = conStr
conn.Open
Set tempOS = New ADODB.Recordset
With mStream
.Type = adTypeBinary
.Open
.LoadFromFile strSave
End With
.......以下省略
End Sub
可是由于当前的WORED仍在编辑中，所以每次都会出现“无法打开文件”的错误，以致写不入数据库中。
本人曾在以上的代码结束处加入mobjWordApp.Quit，然后在Sub mobjWordApp_Quit中加入写入数据库中的代码就可以，但是这个方法的代价就是要退出WORD。
请问各位大侠其他什么办法吗？