'先定义ADODB.Connection和ADODB.Recordset对象.我不写了..dim SQL as StringSQL="Select * From 表1 Where 日期 between Str(DTPicker.value) and Str(DTPicker.value) order by 日期"rs.open SQL ......'后面自己写吧..