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

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

2.问题描述：
(1) 用DataReport可以实现打印指定范围的内容
(2) 用水晶报表打印时，总是打出表中全部记录

如何才能让水晶报表打印出指定范围的内容？

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