按日期查询ok
 Data2.RecordSource = "select 输出地点,检测日期,采集时间,运行状况,电压A,电压B,电压C,电流A,电流B,电流C from 检测电压电流 where 输出地点='" & DBCombo1.Text & "' and 检测日期  between" + Chr(35) + Str(DTPicker1.Value) + Chr(35) + "and" + Chr(35) + Str(DTPicker2.Value) + Chr(35) + "order by 检测日期"
按时间(hh:mm:ss)出错代码
Data2.RecordSource = "select 输出地点,检测日期,采集时间,运行状况,电压A,电压B,电压C,电流A,电流B,电流C from 检测电压电流 where 输出地点='" & DBCombo1.Text & "' and 采集时间  between" + Chr(35) + Str(DTPicker3.Value) + Chr(35) + "and" + Chr(35) + Str(DTPicker4.Value) + Chr(35) + "order by 采集时间"  '时间格式(DTPicker4.Value)00:00:00