求 vbs 访问wincc历史数据库的例子，
在网上查了一些资料，自己写了个代码。
但是查询的时候总是没有数据，数据库里应该有很多数据的，高了很多天了，也没弄明白
希望高手给个例子。
或者高手帮我看看下面的代码：
Dim Conn,rs
Set Conn =CreateObject("ADODB.Connection")
'connstr="Provider=WinCCOLEDBProvider.1;Catalog=CC_report_11_07_30_10_08_31R;Data Source=.\WinCC"
connstr="Provider=WinCCOLEDBProvider.1;Catalog=CC_rpt_11_08_10_16_24_26R;Data Source=.\WinCC"
conn.open connstr
Set rs=CreateObject("adodb.recordset")
SqlStr="TAG:R,'rpt\NewTag1','2011-8-11 02:10:00.000','2011-8-11 16:06:00.000'"
'Report\Newtag1 分别是归档名称和归档变量
rs.open sqlstr,conn,1,3
If rs.eof Then
MsgBox "没有相关数据"
Else
Do While Not rs.eof

MsgBox rs.Fields(2).Value
rs.movenext
Loop
End If