vb6 - vb6 中 CRViewer 上的 SetDataSource

Question

我想对 vb6 中的 crviewer 和数据库访问进行报告。然后根据查询条件显示数据。我制作的代码没有遇到错误。但出现的数据不会影响我创建的查询。或数据显示一切。

我创建的以下代码。

Private Sub Command1_Click()
koneksi
Dim oapp As CRAXDDRT.Application
Dim oreport As CRAXDDRT.Report
strSQL = "select * from kelas where kode_kelas = " & "'" + Combo1.Text &    "'" + ""
Set rs = New Recordset
rs.Open strSQL, db, adOpenDynamic, adLockOptimistic
Set oapp = New CRAXDDRT.Application
Set oreport = oapp.OpenReport(App.Path & "\report1.rpt", 1)
oreport.Database.SetDataSource rs, 3, 1
CRViewer1.ReportSource = oreport
CRViewer1.ViewReport
End Sub

水晶报表 8.6、vb6 和数据库访问。请帮助我，或者更正我的代码。谢谢...