帐目查询(VB6.0源代码编写)'按日期查询并汇总商品销售信息Adodc1.RecordSource="select*fromxsdwhere日期between"+Chr(35)+Str(DTPicker1.Value)+Chr(35)+"and"+Chr(35)+Str(DTPicker2.Value)+Chr(35)+"orderby日期"