Call LoadReport() function LoadReport() Dim Acc Set Acc = CreateObject("Access.Application") Acc.OpenCurrentDatabase( "mdbΦΜtpX" ) Acc.DoCmd.OpenReport "|[gΌ", 2 Acc.DoCmd.Maximize Acc.Visible = True end function