richtextbox loadfile problem

[nouno]

I am trying to spell check a richtextbox. Through code (shown below) I
save the contents of the richtextbox to a rtf file, open the rtf file
in Word, spell check it, save it, and then load the ftf file back into
the ricktextbox using loadfile.

The problem is that the richtextbox seems to remain bound to the rtf
file. If I make a change in the richtextbox after spell checking, the
changes are successfully saved to the database but if the richtextbox
is refreshed, the text from the rtf file is reloaded into the
richtextbox. I have confirmed this by completeing the spell check,
making changes directly in the richtextbox and saving the record,
viewing the saved record from another PC, editing the saved rtf file
that I loaded into the richtextbox while my form with the richtextbox
is open. When I do all that, the changes I made directly in the
richtextbox disappear and the text I edited in Word appear.

I hope I am missing something really obvious. Any help would be
appreciated.

Private Sub Command259_Clic k()

Dim oWord As Object

Set oWord = CreateObject("W ord.Application ")

'Save the RTF Box contents to a temporary file
Me.SUMMARY.Save File "r:\letters\spe ller.RTF", rtfRTF

'Open the saved document and spellcheck it
oWord.Documents .Open ("r:\letters\sp eller.RTF")
oWord.ActiveDoc ument.SpellingC hecked = False
oWord.Options.I gnoreUppercase = False
oWord.ActiveDoc ument.CheckSpel ling

'Save the changes to the RTF file & close
oWord.ActiveDoc ument.Save
oWord.ActiveDoc ument.Close
oWord.Quit

'Load the changes back to the rtf text box.
Me.SUMMARY.Load File "r:\letters\spe ller.RTF", rtfRTF

Set oWord = Nothing

MsgBox "Spell Check is complete", _
vbInformation, "Spell Check"
Exit Sub

SpellCheckErr:
MsgBox Err.Description , vbCritical, _
"Spell Check"
Set oWord = Nothing