我在对历史报警记录进行查询的时候有这样的问题，代码如下
im cn,constring,rs,rscom

Set cn=CreateObject("adodb.connection")
constring="Provider=WinCCOLEDBProvider;Catalog=CC_sf6-proj_06_08_28_09_23_49_R;Data Source=.\Wincc"

cn.connectionstring=constring
cn.CursorLocation = 3
cn.open
Dim query
'query="AlARMViEW:Select * FROM AlgViewEnu WHERE DateTime>'2005-07-30 11:30:00' And DateTime<'2005-08-01 11:00:00'"
query="ALARMVIEW:Select * FROM AlgViewEnu WHERE MsgNr = 5 "
Set rs=CreateObject("adodb.recordset")
Set rscom=CreateObject("adodb.command")
rscom.commandType=1
Set rscom.activeconnection=cn
rscom.commandtext=query
MsgBox "111111"
rs=rscom.execute（出错点）
MsgBox "0000"
Dim c
c=rs.Fields.Count
MsgBox "1111"&c
提示Provider有错