这个直接还真是不能用的,你需要把年月日的值提取出来,才能使用,这样比较好,具体的例子如下,
Dim cn,rst,rstCom,LV
Dim R, C, F, I ,c1
Dim objTag
Dim objItem
Dim strcn
Dim strsql
Dim str01,str02
Dim dt,dt1
Dim mode,y1,y2,m1,m2,d1,d2
Dim ss1

Set dt=ScreenItems("DT_00")
Set dt1=ScreenItems("DT_01")

strcn = "Data Source=TestRD001;UID='';PWD='';"
Set cn=CreateObject("ADODB.connection")
HMIRuntime.Tags("A_QueryProcess").Write "á??óêy?Y?a......" '????
cn.ConnectionString = strcn
cn.Open
HMIRuntime.Tags("A_DT").Write dt.Value
HMIRuntime.Tags("A_QueryProcess").Write "?′D′2é?ˉ?üá?′?......"
y1=dt.year
m1=dt.month
d1=dt.day
y2=dt1.year
m2=dt1.month
d2=dt1.day


strsql = "SELECT * FROM ARD002 WHERE OP10_Time BETWEEN'" & y1 &"- "& m1 &"-"& d1 & " 00:00:00'"&_
" And '" & y2 &"- "& m2 &"-"& d2 & " 23:59:59' ORDER BY OP10_Time Asc"
这样就可以了,我已作过测试.