Call LoadReport() function LoadReport() Dim Acc Set Acc = CreateObject("Access.Application") Acc.OpenCurrentDatabase( "mdbへのフルパス" ) Acc.DoCmd.OpenReport "レポート名", 2 Acc.DoCmd.Maximize Acc.Visible = True end function