我想用水晶报表打印指定范围的内容，如下所示代码，但实际打出来的是表中全部数据，
经高人指点应将记录集传给水晶报表，但我不知如何传，请高手写一下将记录集传给水晶报表的代码，谢谢！

软件环境：
VB 6.0 中文版 + 水晶报表 9.0中文版

Private Sub Command_PrnD2_Click()

  ' 指定打印范围
  ExeStr = "select * from CurrTab where XH>3"     '打印 CurrTab表中，xh大于3的记录
  DataEnvironment2.rsCommand1.Open ExeStr, MyCnn, adOpenKeyset  ', adLockOptimistic
  
  If DataEnvironment2.rsCommand1.RecordCount > 0 Then
    Form1.Show          '调用水晶报表对应的窗体
  End If
  
End Sub