vb的两个问题？？

[Sander]

问题一、实时错误‘7004’行集合不能作为标签
我在DATAENVIRONMENT1中有一COMMAND1名为 部门销售日报表
其SQL为：
SELECT Counter.Code, SUM(CounterDayReport.Value18) AS 零售数,
SUM(CounterDayReport.Value19) AS 零售额, SUM(CounterDayReport.Value22)
AS 零售退货数, SUM(CounterDayReport.Value23) AS 零售退货额,
SUM(CounterDayReport.Value26) AS 零售优惠金额,
SUM(CounterDayReport.Value19 - CounterDayReport.Value23) AS 实际销售金额,
Counter.Name
FROM Counter INNER JOIN
CounterDayReport ON Counter.Code = CounterDayReport.CounterCode
WHERE (CONVERT(char, CounterDayReport.Date, 102) = ?)
GROUP BY Counter.Code, Counter.Name
ORDER BY Counter.Code
在SQL BUILDER中运行通过。
但在执行表单出错：信息为：”实时错误‘7004’行集合不能作为标签“
以下为表单代码：
Private Sub Form_Load()
If DataEnvironment1.rs部门销售日报表.State <> adstateclose Then
DataEnvironment1.rs部门销售日报表.Close
End If
DataEnvironment1.Commands("部门销售日报表").Parameters(0) = "2000.05.16"
Set DataGrid1.DataSource = DataEnvironment1
DataGrid1.DataMember = "部门销售日报表"

以上一句为错误停留处！
请高手指点！！！

问题二、dataenviornment1是什麽类型
我定义了一函数，其参数需用到DATAENVIORNMENT1，但不知怎样定义其类型。
如：ADODC1类型为：ADODC

[Un1]

2:As Object 行不行？