如何给DataEnvironment1的属性赋值

Question

Private Sub Command2_Click()
Dim a As String, b As Long, c As Long, sql As String, mlink As String
a = Text1.Text
b = Text3.Text
c = Text4.Text
sql = "select 姓名 ,产品 ,count(产品) as 数量 ,价格 ,sum(价格) as 合计  from kc" _
& " where 姓名='" & a & "' and 时间 >= " & b & " and 时间 <= " & c & "  group by 姓名,产品,价格 "DataEnvironment1.Connection1.ConnectionString =sqlEnd Sub
程序执行到倒数第2句的时候出错了，原因是对象关闭的时候不允许操作。
不知道有什么办法可以解决，而且要保留sql中的变量

Answer 1

    Set DataEnvironment1 = Nothing 
    DataEnvironment1.Connection1= strCnn （数据库链接代码）    sql语句应该在下面的COMMAND中调用
    DataEnvironment1.Commands("gas_money").CommandText = "SELECT * FROM ChargeArre WHERE ........"  

Answer 2

谢谢 但是我不知道Commands("gas_money")中括号里面的意思是什么
能不能具体点啊。
还有希望能和你教个朋友
我现在一个人在家做软件，真的是前途黑暗
我的qq123702500 加的时候加上halforc就行

Answer 3

晕 就一个人来回答么？
我的数据环境中有多个命令按钮 你说的select语句是给哪个command啊？
没有高手教我一下么？

Answer 4

Commands("gas_money")中括号里面的意思就是多个COMMAND中的一个啊！
后面的SQL语句就是针对这个COMMAND的查询语句，这样报表才能按照自己的设计思路显示的

Answer 5

    Set DataEnvironment1 = Nothing  
    DataEnvironment1.Connection1= strCnn （数据库链接代码）
     DataEnvironment1.Commands("gas_money").CommandText = "SELECT * FROM ChargeArre WHERE ........"   
 
就是刷新数据环境啊！“select * .....”就是重新填充报表数据。