I am trying to open a database using excel VBA but the code I have 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
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