如何才能让DataReport中显示自己需要的内容(跪求,谢谢)!!!!

我是通过dataenvironment中connection的command1来连接数据库并通过command1
来使datareport显示信息的.

但我现在想通过TEXT或者其它控键来传递我要查询的内容,比如:我想查询 select * from XXX

把要查询的语句传递给dataenvironment中connection的command1的commandtext这个该如何实现??? --------------------编程问答-------------------- 不需要一定用 COMMAND 来绑定  DTE 报表

随便一个 ADODB.RS 都可以 绑定:
Public Sub PrintMeterInfo()
    Dim rs As ADODB.Recordset
    Dim i As Long
    
    Set rs = New ADODB.Recordset

    rs.Open "SELECT myCollect.strNodeID, myMeter.strMeterNum, myMeter.sngValue, myMeter.strRTTime, myMeter.strPhasic, myMeter.strState, myMeter.strInsAddr FROM myCollect, myMeter WHERE (myMeter.lngContID = " & rsContainer("ID") & " ) And myCollect.ID=myMeter.lngColID", cn, adOpenStatic, adLockReadOnly
    
    Set dtpMeterInfo.DataSource = rs
    dtpMeterInfo.Show 1
    
    Set dtpMeterInfo.DataSource = Nothing
    rs.Close
    Set rs = Nothing

End Sub


Private Sub DataReport_Initialize()
    With Me
        .Sections("Section4").Controls("labTableName").Caption = "表"
        .Sections("Section1").Controls("txtMeterNum").DataField = "strMeterNum" 'rs("strMeternum")
        .Sections("Section1").Controls("txtMeterValue").DataField = "sngvalue"  ' rs("sngvalue")
        .Sections("Section1").Controls("txtReadTime").DataField = "strRTTime"   ' NoNull(rs("strRTTime"))
        .Sections("Section1").Controls("txtMeterPH").DataField = "strPhasic"    ' rs("strPhasic")
        .Sections("Section1").Controls("txtCollect").DataField = "strNodeID"    ' rs("strNodeID")
        .Sections("Section1").Controls("txtMeterState").DataField = "strState"  ' rs("strState")
        .Sections("Section1").Controls("txtMeterInsAddr").DataField = "strInsAddr" ' rs("strInsAddr")
    End With
    
    
End Sub
--------------------编程问答-------------------- DataEnvironment1.Commands("command1").CommandText="select * from XXX"

补充：VB ,  数据库(包含打印，安装，报表)