Access - combinacion

hola gente necesito un poco de ayuda, tengo unas tablas creadas en acces 2003 combinadas a unos documnetos de word, he creado unos formularios en acces, mi problema es que cuando habro el documento de word desde acces me pierde la conexion lo cual tengo que volver a buscar el origen de datos desde word.
lo que quiero saber es si de alguna manera cuando habro el documento de word desde acces mentenga la combinacion para poder recorrer los registros sin tener que buscar el origende datos nuevamente. desde ya muchas gracias

pd: pierde la combinacion unicamente cuando lo habro desde acces, si habro el documento directamente desde word la combinacion se ejecuta normalmente

Yo intentaría con Macros de WORD

Algo sí, esto está programado en el VBA de Word:

Sub Macro4()

ActiveDocument.MailMerge.OpenDataSource Name:= _
"C:\Users\Documents\AsignacionSalas.mdb", _
ConfirmConversions:=False, ReadOnly:=False, LinkToSource:=True, _
AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate:="", _
WritePasswordDocument:="", WritePasswordTemplate:="", Revert:=False, _
Format:=wdOpenFormatAuto, Connection:= _
"Provider=Microsoft.Jet.OLEDB.4.0;Password="""";User ID=Admin;Data Source=C:\Users\Documents\AsignacionSalas.mdb;Mode=Read;Extended Properties="""";Jet OLEDB:System database="""";Jet OLEDB:Registry Path="""";Jet OLEDB:Database Password=" _
, SQLStatement:="SELECT * FROM `Relatores`", SQLStatement1:="", SubType:= _
wdMergeSubTypeAccess

...

End Sub

cada vez que abras el documento se puede reestablecer la conexión de las tablas...

Para que salir a Word, se podría directamente desde Access con el click de un botón de la siguiente forma.

Private Sub Command_Click()

Dim AppWord As Word.Application
Dim DocWord As Word.Document
Set DocWord = New Word.Document
Set AppWord = New Word.Application
Set DocWord = AppWord.Documents.Open(CurrentProject.Path & "\NombreDocumento..doc")

AppWord.Visible = True
DocWord.MailMerge.OpenDataSource Name:=CurrentProject.Path & "\NombreBaseDatos.mdb", LinkToSource:=True, Connection:="TABLE tblcompanies", SQLStatement:="SELECT * FROM [tblcompanies]"
With DocWord.MailMerge
.Destination = wdSendToNewDocument ' o wdSendToPrinter si lo quieres directo a impresora
.MailAsAttachment = False
.MailAddressFieldName = ""
.MailSubject = ""
.SuppressBlankLines = True
With .DataSource
.FirstRecord = wdDefaultFirstRecord
.LastRecord = wdDefaultLastRecord
End With
.Execute
End With
DocWord.Close

Set AppWord = Nothing
Set DocWord = Nothing

End Sub

excelente