摄SQL语句在VB中执行问题

Question

编写了一段SQL语句：
create table #kpt1(da varchar(10))
declare @DTPicker1 datetime,@DTPicker2 datetime 
set @DTPicker1='2008-7-11'
set @DTPicker2='2008-7-31'
while (DATEDIFF(DD,@DTPicker1,@DTPicker2))>=0
begin 
 insert #kpt1 
 values(convert(varchar(10),@DTPicker1,120))
 set @DTPicker1=DATEADD(DD,1,@DTPicker1)
endselect a.da as 日期,
A=SUM(case when Card_Type='临时卡A' then 1 else 0 end),
A收费=SUM(case when Card_Type='临时卡A' then [M_money] else 0 end) ,
B=SUM(case when Card_Type='临时卡B' then 1 else 0 end),
B收费=SUM(case when Card_Type='临时卡B' then [M_money] else 0 end) 
from #kpt1 a
left join GoCar b
on a.da=convert(varchar(10),b.M_Date,120)
group by a.da基本上分为两部分，第一部分建个临时表，第二部分查询，在SQL查询分析器里面试过了，成功
但是由于对VB不够熟悉，不知道怎么把查询结果赋给VB里的一个Datagrid里面，
之前用了一个ADODC，把查询结果赋给ADODC再传给Datagrid,但始终不能成功，
是不是要吧这段SQL语句分开用啊，希望有高手指点一下！谢谢！

Answer 1

建存储过程，vb调用它，将运行结果赋给adodc.recordSource