Here is some code I put behind an option group on a Form. You can experiment with this.
Option Compare Database
Option Explicit
Public pubAppAccess As Access.Application, pubOldAccess As Access.Application
Public pubFilePath As String
Private Sub optOnLine_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
' Open Access project.
pubFilePath = "C:\compudyne\xxxx\projects\remotepubs.adp"
Set pubAppAccess = New Access.Application
pubAppAccess.OpenAccessProject pubFilePath
pubAppAccess.Application.RefreshDatabaseWindow
pubAppAccess.Application.Visible = True
DoCmd.Close
End Sub
Private Sub otpOffLine_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
' Open Access project.
pubFilePath = "C:\compudyne\xxxx\projects\localpubs.adp"
Set pubAppAccess = New Access.Application
pubAppAccess.OpenAccessProject pubFilePath
pubAppAccess.Application.RefreshDatabaseWindow
pubAppAccess.Application.Visible = True
DoCmd.Close
End Sub