向各位大虾请教一个水晶报表打印的问题：

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