在VB中如何使用直观、简便的报表一直是很多人关心的问题，CrystalReports用起来又不太理想。现介绍一在VB中运行MicrosoftAccess报表的方法，用起来还不错。
　　
　　利用Automation运行MicrosoftAccess报表
　　
　　1.使用MicrosoftAccess建立数据库(如：novelty.mdb)的相关报表(如：rptEmployess)。
　　
　　2.创建引用
　　
　　在VB中使用“ProjectReferences"菜单创建一个对MicrosoftAccess8.0ObjectLibrary的引用。
　　
　　3.程序清单
　　
　　'ReferencesMSAccess8.0ObjectLibrary(this
　　
　　'codewillworkwithanyversonofAccessthat
　　
　　'supportsAutomation)
　　
　　DimMSAccessAsAccess.Application
　　
　　PrivatesubCommand1_Click()
　　
　　SetMSAccess=NEWAccess.Application
　　
　　MSAccess.OpenCurrentDatabase(App.Path&"ovelty.mdb")
　　
　　MSAccess.DoCmd.OpenReport"rptEmployess",acViewNormal
　　
　　MSAccess.CloseCurrentDatabase
　　
　　SetMSAccess=Nothing
　　
　　endSub
　　
　　注：acViewNormal告知Access打开该报表并立即打印。
　　
　　这种方法有个缺点，就是运行环境中必须装有MSAccess。->