Problema con macro de Excel que abre Access

Buenos días:

Les comento mi problema. Tengo una macro de Excel que me abre el Access (en este caso un formulario pero con una BD me pasa lo mismo) y lo que me pasa es que en cuanto termina la macro de Excel, se me cierra también el Access, como podría evitar eso?

Después de hacer el OpenForm, la macro sigue ejecutándose y al llegar al final me cierra el Access abierto, con lo cual no puedo actualizar datos en el formulario de forma manual que es lo que quiero.

Muchas gracias por su ayuda.

Les pongo el código

Set File = Application.FileDialog(msoFileDialogOpen)
File.AllowMultiSelect = False
File.Show
DB = File.SelectedItems(1)

Set AppAccess = CreateObject("Access.Application")
AppAccess.OpenCurrentDatabase DB
AppAccess.Docmd.OpenForm "masterhotels"
AppAccess.Visible = True
AppAccess.Docmd.Maximize

End Sub