Abrindo documento do Word via VBA

Boa Tarde a todos!

Estou tentando abrir um documento do Word mais está dando o seguinte erro:

Erro de compilação:
Chamada a função no lado esquerdo de uma atribuição precisa retornar Variant ou Object

E o depurador grifa a seguinte linha do código:

Private Sub RelatorioAnual_Click()
On Error GoTo TrataErro

Dim oApp As Object
CurrentDbDir = "C:\BancoEstatistica\Arquivos"
' Inicia o MS Word
Set oApp = CreateObject("Word.Application")
With oApp

' Torna o MS Word visível
Visible = True
' Abre o documento
.Documents.Open ("C:\BancoEstatistica\Arquivos\RelatorioAnual.doc")
'Move cada campo para o indicador definido no documento
.ActiveDocument.Bookmarks("Ronda").Select
.Selection.Text = Trim(CStr(Me.Ronda))
.ActiveDocument.Bookmarks("bombeiros").Select
.Selection.Text = Trim(CStr(Me.Bombeiros))
.ActiveDocument.Bookmarks("POG").Select
.Selection.Text = Trim(CStr(Me.POG))
.ActiveDocument.Bookmarks("Pefoce").Select
.Selection.Text = Trim(CStr(Me.PEFOCE))
.ActiveDocument.Bookmarks("TotalAtend").Select
.Selection.Text = Trim(CStr(Me.TotalAtend))
.ActiveDocument.Bookmarks("Trote").Select
.Selection.Text = Trim(CStr(Me.TROTE))
.ActiveDocument.Bookmarks("TotalReg").Select
.Selection.Text = Trim(CStr(Me.TotalReg))

.ActiveDocument.SaveAs CurrentDbDir & Me.COD & ".doc"
.ActiveDocument.Close
MsgBox "Documento salvo com sucesso...", vbInformation
.Documents.Open CurrentDbDir & Me.COD & ".doc"
.Visible = True
.WindowState = wdWindowStateMaximize
End With
oApp.Quit
Set oApp = Nothing
Saida:
Exit Sub

TrataErro:
'Se um campo do formulário estiver vazio, remove o texto do Indicador e continua
If Err.Number = 94 Then
oApp.Selection.Text = ""
Resume Next
End If
MsgBox "Form_Relatorios - RelatorioAnual_Click" & vbCrLf & Err.Description, vbExclamation + vbOKOnly, "Erro: " & CStr(Err.Number)
#If DESENV Then
oApp.Quit
Set oApp = Nothing
Stop
Resume
#End If
Resume Saida

End Sub

Comente essa linha e tente ver se funciona normalmente.

Comentei a linha e o access travou!

Bom dia Francisco;

Você a função CurrentDBDir num modulo ?

Public Function CurrentDBDir() As String
Dim strDBPath As String
Dim strDBFile As String

strDBPath = CurrentDb.Name
strDBFile = Dir(strDBPath)
CurrentDBDir = Left$(strDBPath, Len(strDBPath) - Len(strDBFile))

End Function