这里有一个VB6 + ADO + CR9.0的例子。详见CSDN\数据库开发\数据库报表
报表采用ADO连接,里写上Sql语句。
VB6语言
Dim rptApp As New CRAXDRT.Application '报表应用对象
Dim rpt As New CRAXDRT.Report '报表对象
Dim rs As ADODB.Recordset '记录集对象
Dim Conn As ADODB.Connection '连接对象
Private Sub Form_Load()
'建立连接
Set Conn = New ADODB.Connection
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db1.mdb;Persist Security Info=False"
Set rs = New ADODB.Recordset
rs.CursorLocation = adUseClient
rs.Open YourSqlString, Conn, adOpenKeyset, adLockReadOnly, 1
'获取报表
Set rpt = rptApp.OpenReport(App.Path & "\aa.rpt")
'为报表设置记录源
Call rpt.Database.Tables(1).SetDataSource(rs)
rpt.DiscardSavedData
'报表控件赋报表源
CRViewer1.ReportSource = rpt
'显示报表
CRViewer1.ViewReport
End Sub