Report di Access

objAccess = CreateObject("Access.Application")

objAccess.OpenCurrentDatabase(PathDataBase, False)

PrnModulo = "Amministratori"
Dim MFiltro As String = ""
objAccess.DoCmd.OpenReport(PrnModulo, acPreview, , MFiltro) '(da aggiungere per l'anteprima)
objAccess.Visible = True
objAccess.DoCmd.Maximize()
MFiltro = ""
objAccess = Nothing