Dbgrid1控件显示Data1控件的内容

    
     请问VB 6 的Form1窗口中有一个Data1控件和一个Dbgrid1控件,
 
Private Sub Command1_Click()     '统计客房销售信息
 Data1.RecordSource = "select count(*)as 记录数,sum(应收宿费)as 应收宿费合计,sum(杂费)as 杂费合计,sum(电话费)as 电话费合计 ,sum(会议费)as 会议费合计,sum(存车费)as 存车费合计,sum(赔偿费)as 赔偿费合计,sum(金额总计)as 实收金额合计,sum(预收宿费)as 预收宿费合计,sum(退还宿费)as 退还宿费合计 from tfd where tfd.BZ like " + Chr(34) + Left(Combo1.Text, 4) + "*" + Chr(34) + ""

 Data1.Refresh
 Data1.Refresh
 DBGrid1.DataSource = Data1.RecordsetType
 DBGrid1.Refresh

End Sub
我想让Dbgrid1控件显示Data1的值,请问这该如何实现呢??
谢谢了!!! --------------------编程问答-------------------- 关注 接分

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