关于报表打印问题，请高手指教
我用DataEnvironment作为数据源。取名Data1，连接名为conn,命令名为CmdDbcg。 报表名为 DrDbcg

打印代码为：
Data1.Conn.Open
Data1.Conn.Execute "select * from 单板采购 where 单号='" & TxtDh.Text & "'"
DrDbcg.Show 1
Data1.Conn.Close

但报表打印出来却是所有内容，并不是我设计的条件“单号”='" & TxtDh.Text & "'

请问高手是否能有什么办法动态的给命令CmdDbcg的commandtext属性赋值，或者是还有什么好的办法能实现？

特别感谢！

[解决办法]
Data1.Conn.Open
Data1.commands("cmddbcg")= "select * from 单板采购 where 单号='" & TxtDh.Text & "'"
DrDbcg.Show 1
Data1.Conn.Close