水晶报表问题？

水晶报表10.0
Dim Report As New CrystalReport1'
Public strSql As String'要打印的数据
Public strReportName As String'报表文件夹

Private Sub CRViewer1_CloseButtonClicked(UseDefault As Boolean)

End Sub

Private Sub Form_Load()

Dim rs As New ADODB.Recordset
Dim oApp As New CRAXDRT.Application
Dim oRpt As CRAXDRT.Report
Dim strTemp As String

Screen.MousePointer = vbHourglass

'查找报表文件
Select Case strReportName
Case "0"
strReportName = "rclist.rpt"'这些文件已用水晶报表10.0做好。
Case "1"
strReportName = "rslistjb.rpt"
End Select

strTemp = App.Path

If Right(App.Path, 1) <> "\" Then strTemp = strTemp & "\"

strReportName = strTemp & "crystal\" & strReportName

If Dir(strReportName) = "" Then
MsgBox "没有找到报表文件！预览失败！", vbInformation, "提示"
Exit Sub
End If

strSql = "select top 10 * from q_RcList Order by person_nation desc"
'每次这个地方传过来的sql不更新，还是设计时的数据，是怎么回事，请大家指教？谢谢！
Set rs = ExSQL(strSql)
Debug.Print rs.RecordCount

'strReportName = "\crystal\rclist.rpt" '定义要引用的rpt文件

Set oRpt = oApp.OpenReport(strReportName, 1)

oRpt.Database.SetDataSource rs '连接水晶报表和数据源
oRpt.ReadRecords

CRViewer1.Refresh
'CRViewer1.PrintReport
CRViewer1.ReportSource = oRpt '启用水晶报表的预览功能

CRViewer1.ViewReport

Screen.MousePointer = vbDefault
End Sub