请问关于datareport与command对象的问题

Question

现已有用数据Active设计器设计好的dataenvironmet对象（含connection与command)与datareport对象各一，且dataenvironment作datareport的datasource,而command
做datareport的datamember，其SQL语句不带参数；现在想实现command对象的commandtext带参数查询，是否必须在程序中创建command对象，并将datareport的datamember 属性set为这command对象？那么dataenvironment该如何处理（即datareport的datasource如何处理？）；有没有简便的直接引用我设计好的command对象的方法？

Answer 1

Dim sqltxt As String
            Dim strid As String
            Dim V_data As DataE
            Dim V_conn As Connection
            Dim V_cmd As Command
            strid = Trim(txtid.Text)
            Set V_data = New DataE
            Set V_conn = V_data.conn1
            V_conn.Open
            sqltxt = "select * from tbl_health where id = '" & strid & "'"
            V_data.Commands("cmdhealth").CommandText = sqltxt
            V_data.Commands("cmdhealth").Execute
            rptHealth.PrintReport False这段代码可能对你有用