Option Explicit
Public WithEvents DBConn As ADODB.Connection
Dim oAccess As Object
 
Private Sub setConnection()
  Set DBConn = New ADODB.Connection
  With DBConn
    .CursorLocation = adUseClient
    .Provider = "Microsoft.Jet.OLEDB.4.0"
    Select Case exclusive
      Case False:   .Mode = adModeReadWrite Or adModeShareDenyWrite
      Case True:    .Mode = adModeShareExclusive
    End Select
    .Properties("Data Source") = Path_DB
    .Properties("Persist Security Info") = False
    .Properties("Jet OLEDB:Database Password") = "Passwort"
    .Properties("Jet OLEDB:System database") = Pfad(Path_DB) & "Secure.mdw"
    .Open
  End With
  ...
  Call AccessReport(Path_DB, "Report", False)
End Sub

Private Function AccessReport(ByVal sDBFile As String, ByVal sReportName As _
  String, Optional ByVal bPreview As Boolean = True) As Boolean
  On Error GoTo ErrHandler
  Set oAccess = CreateObject("Access.Application")
  With oAccess
    .OpenCurrentDatabase filepath:=sDBFile
    If bPreview Then
      .Visible = True
      .DoCmd.OpenReport sReportName, 2
    Else
      .DoCmd.OpenReport sReportName
    End If
  End With
  Call AccessReport_Close
  AccessReport = True
Exit Function
ErrHandler:
  AccessReport_Close
  AccessReport = False
End Function
 
Private Sub AccessReport_Close()
  On Error Resume Next
  oAccess.Quit
  Set oAccess = Nothing
  On Error GoTo 0
End Sub