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