关于报表打印问题，请高手指教
我用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
