一
通过vsreport这个控件，你完全可以使用ACCESS来设计好报表，然后在VB中调用这些报表，效果与你直接在ACCESS调用报表一样。

VB的报表一直是它的弱项

不过，这个控件，在有子报表的时间会有一些小问题，通过一些特殊的方法才能解决。不过，总的来说，效果还是不错的，它实际上是产生一些中间格式文件来实现的
二
也可用：
Dim MSAccess As Access.Application
Set MSAccess = New Access.Application MSAccess.OpenCurrentDatabase (app.path & "\*.mdb") MSAccess.Visible = True MSAccess.DoCmd.OpenReport "报表名", acViewPreview
打印ACCESS报表
Dim objACC As Object
Set objACC = CreateObject("Access.Application")
objACC.OpenCurrentDatabase "c:\db.mdb"
objACC.DoCmd.OpenReport "表报一"
objACC.Quit
Set objACC = Nothing

或
Crp.Connect = AdoConn
Crp.SelectionFormula = "{表名.字段}='條件'"
Crp.ReportFileName = App.Path & "\*.rpt"
Crp.PrintReport