Dim WithEvents doc As Word.Document

Private Sub OpenFile()
Dim file As String
Dim wrd As New Word.Application
    file = CreateFileFromDB 'это мы уже умеем))
    wrd.Visible = True
    Set doc = wrd.Documents.Open(file)
End Sub

Private Sub doc_Close()
    'здесь можно спросить пользователя, нужно ли сохранять в базу
    doc.Save
    SaveFileToDB file
    Set doc = Nothing
End Sub

colDocs.Add cw, cw.ObjectID

If id =  0  Then
        Set doc = wrd.Documents.Add
    Else
        Set doc = wrd.Documents.Open(File)
    End If

Public Sub OpenFile(id As Long, Optional file As String)
Dim wrd As Word.Application
    lID = id
    On Error Resume Next
    Set wrd = GetObject(, "Word.Application")
    On Error GoTo  0 
    If wrd Is Nothing Then Set wrd = New Word.Application
    wrd.Visible = True
    Set DocWord = WordApp.Documents.Open(App.Path & "\blank\" & firm & ".doc")
    doc.Activate
    doc.SaveAs ("C:\MyDoc.Doc")
End Sub

Dim rs As New ADODB.Recordset
Dim rec As New ADODB.Recordset
Dim cw As New clsWord
Dim r() As Byte
    rs.Open "select * from docs where id=" & Label11.Caption, cn, adOpenDynamic, adLockOptimistic
    rec.Open "select * from docs", cn, adOpenDynamic, adLockOptimistic
    rec.AddNew
    rec!Word = rs!Word
    rec!firm = rs!firm
    rec!data_from = rs!data_from
    rec!modyfy = rs!modyfy
    rec!User = rs!User
    rec!viddoc = rs!viddoc
    rec!firma = rs!firma
    rec!info = rs!info
    rec.Update

    WriteFile App.Path & "\doc" & Label11.Caption & ".doc", r
    cw.OpenFile CLng(Label11.Caption), App.Path & "\doc" & Label11.Caption & ".doc"

Dim rs As New ADODB.Recordset
Dim rec As New ADODB.Recordset
Dim cw As New clsWord
Dim r() As Byte
    rs.Open "select * from docs where id=" & Label11.Caption, cn, adOpenDynamic, adLockOptimistic
    rec.Open "select * from docs", cn, adOpenDynamic, adLockOptimistic
    rec.AddNew
    rec!Word = rs!Word
    rec!firm = Combo1.Text
    rec!data_from = Command5.Caption
    rec!modyfy = Form1.Label8.Caption
    rec!User = Form1.Label2.Caption
    rec!viddoc = Combo2.Text
    rec!firma = Combo3.Text
    rec!info = Text1.Text
    rec.Update

    WriteFile App.Path & "\doc" & rec!id & ".doc", r
    cw.OpenFile CLng(rec!id), App.Path & "\doc" & rec!id & ".doc"

rec.AddNew