Set objACC = CreateObject("Access.Application")objACC.OpenCurrentDatabase "c:db.mdb"objACC.DoCmd.OpenReport "表报一"objACC.QuitSet objACC = Nothing