向各位大虾请教一个问题：如何用水晶报表打印指定范围的内容

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

烦请版主写一下用ADODB.Recordset向水晶报表传记录集的代码，多谢！