I am trying to open a database using excel VBA but the code I have for below simply opens and closes the database. anybody know what I need to add to keep the database open?

Sub OpenAccess()

Dim LPath As String

LPath = "C:\Directory\Filename.mdb"

Set oApp = CreateObject("Access.Application")
oApp.Visible = True

oApp.OpenCurrentDatabase LPath

End Sub

Thanks