在水晶报表里，为何这样的条件打印总是出错？

以下是全部打印，正常
Dim CryApp As New CRAXDDRT.Application
    Dim Report As CRAXDDRT.Report
    
    Dim strCnn As String
    Set Report = CryApp.OpenReport(App.Path & "\Report1.rpt")
    Screen.MousePointer = vbHourglass
    CRViewer91.ReportSource = Report
    CRViewer91.ViewReport
      
    Screen.MousePointer = vbDefault以下是条件打印，不正常
''例如，我只想打印条6条记录
Dim m
m = 6Dim CryApp As New CRAXDDRT.Application
Dim Report As CRAXDDRT.Report
    Set Report = CryApp.OpenReport(App.Path & "\report1.rpt")
  Dim strCnn As String
  Dim cnn1 As New ADODB.Connection
  Dim adoRS As New ADODB.Recordset
    
  strCnn = "PROVIDER=MSDataShape;Data PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\hongjian.mdb;Jet OLEDB:Database Password=;"
    cnn1.Open strCnn
    
    adoRS.Open "SELECT   * FROM   明收分发表,来文登记 where  (来文登记.序号='" & m & "' and  明收分发表.年份=来文登记.年份) AND (明收分发表.序号=来文登记.序号)  ORDER BY 来文登记.年份, 来文登记.序号 ", cnn1, adOpenDynamic, adLockBatchOptimistic
    'Report.Database.SetDataSource adoRS
 
    Screen.MousePointer = vbHourglass
    CRViewer91.ReportSource = Report
    CRViewer91.ViewReport
    Screen.MousePointer = vbDefault过滤失败。不能按条件打印,出错信息：
系统出现非法，关闭VB程序，错在哪里？多谢指点!