Access - Abrir access desde otra aplicación

Bien utilizo
Sub rutina()
Dim oApp As Access.Application
Set oApp = CreateObject("Access.Application")
oApp.OpenCurrentDatabase "D:\db1.mdb"
oApp.Visible = True
End Sub

Para abrir una base de datos en access, y la consigo abrir, pero al terminar la rutina se cierra la base de datos, ¿hay alguna forma de que esto no ocurra?
Gracias por adelantado

Estas dimensionando la variable aApp en el procedimiento, tenes que hacerlo en declaraciones y como publica si la usas desde otros modulos

JLF_

Si eso ya lo se.
De todas maneras si intento abrir excel, word, o cualquier otra aplicación esta sigue abierta aunque tenga dimensionada la variable en la función.
A mi me interesa que la aplicación quede abierta aunque se cerrase la que la aplicación que la llamo.

Gracias de todas formas