sub test（）
  Dim objACC As Object
  Set objACC = CreateObject("Access.Application")
  objACC.OpenCurrentDatabase "c:\db.mdb"
  objACC.DoCmd.OpenReport "表报一"
  objACC.Quit
  Set objACC = Nothing
end sub