Dim MyAccess As Object
Dim dbpfad As String
 
dbpfad= App.Path & "datenbank.mdb" 'Hier der Datenbank-Pfad
Set MyAccess = GetObject(dbpfad)
 
'Ohne SQL Abfrage:
MyAccess.DoCmd.OpenReport "Berichtname"
 
'Mit SQL Abfrage:
MyAccess.DoCmd.OpenReport "Berichtname", , "SELECT * FROM tabellenname WHERE" & _
  "spaltenname = 'text'"