Option Compare Database
Option Explicit
Private objAccessApplication As Access.Application
Private Sub Class_Initialize()
    Set objAccessApplication = New Access.Application
End Sub
Public Sub OpenDatabase(Optional ByVal sDatabase As String)
    With objAccessApplication
        If sDatabase <> "" Then .OpenCurrentDatabase sDatabase, False
        .Visible = True
    End With
    
End Sub
Private Sub Class_Terminate()
    If objAccessApplication Is Nothing Then
        objAccessApplication.Quit
        Set objAccessApplication = Nothing
    End If
    
End Sub