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和数据库访问。 请帮助我，或更正我的代码。 感谢...