求解“对象 refresh 的方法 iadodc失败”的原因

SQL2005   
温度表数据
设备ID             温度      采集时间
01010101    21    2013/10/18 9:58:00
01010102    20    2013/10/18 9:59:00
01010103    20    2013/10/18 10:01:00
01020101    19    2013/10/18 10:02:00
01020102    21    2013/10/18 10:03:00
02500101    20    2013/10/18 10:04:00
02500102    21    2013/10/18 10:05:00
03490101    19    2013/10/18 10:06:00
03490101    22    2013/10/18 10:16:00
01010101    23    2013/10/18 8:39:00
01020102    33    2013/10/18 15:34:00

要求查询出每个设备 最后一次采集的温度 构成的表用datagird显示出来
Private Sub Form_Load()
Dim str1 As String
str1 = " select * from ( select row_number() over（ partition by 设备ID order by 采集时间 ） as rows,设备ID,采集时间 from 温度表 )where rows=1 "
Adodc1.RecordSource = str1
Adodc1.Refresh
End Sub

错误提示如题。请问该如何解决。谢谢各位大侠！！