帮忙找错,该如何解决

帮忙找错
Private Sub Command1_Click()
Adodc1.RecordSource = "select STCD sum(isnull(DRP,0)) as DRP From ST_PPTN_R Where between tm='" + DTPicker2.Value + " " + Text3.Text + ":00:00' and tm='" + DTPicker3.Value + " " + Text4.Text + ":00:00'" Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1.Recordset
DataGrid1.Refresh
End Sub

------解决方案--------------------
会不会是DTPicker Value格式的问题?

------解决方案--------------------
"select stcd,drp as data,tm as tm_ from st_pptn_r 
where
tm >= '".$tm_begin."' and
tm <= '".$tm_end."'"