How do I keep MS Word open when opened by MS Access

I am writing an MS Access application. This code snippet just opens MS world and closes immediately. This is not what I want. I want to be able to leave it open long enough to edit it.

Dim objWord As Word.Application

…

Function OpenAWord_Maybenot(wordDocStr As String)

If TypeName(objWord) <> "Application" Then

'Start Microsoft Word 97.
Set objWord = CreateObject("Word.Application")

objWord.Visible = True
objWord.Documents.Open (wordDocStr)


'Quit Microsoft Word and release the object variable.
objWord.Quit
Set objWord = Nothing

End If

End Function