通过VB读取归档变量，但是执行到conn.open是提示错误，显示未找到提供程序，该程序可能为正确安装。

程序如下

Set dsn=HMIRuntime.Tags("@DatasourceNameRT")

    dsn.Read

    sPro="Provider=WinCCOLDEBProvider.1;"

    sDsn="Catalog="&dsn.value&";"

    sSer="Data Source=.\wincc"

    sCon=sPro & sDsn & sSer

Set conn=CreateObject("ADODB.Connection")

    conn.ConnectionString = sCon

    conn.CursorLocation = 3

conn.open

Set oRs = CreateObject("ADODB.Recordset")

Set oCom = CreateObject("ADODB.Command")

    oCom.CommandType = 1

Set oCom.ActiveConnection = conn

    sdate=Year(rili.Value)&"-"&Month(rili.Value)&"-"&Day(rili.Value)

    sStart=sdate&" "&"00:00:00"

    sStop=sdate&" "&"23:59:59"

    sStart=DateAdd("h",-8,CDate(sStart))

    sStop=DateAdd("h",-8,CDate(sStop))

    sql="Tag:R,('ProcessValueArchive\反洗总管流量计实际值','ProcessValueArchive\膜池1流量计实际值值'),'"&sStart&"','"&sStop&"' order by datetime"

    oCom.CommandText=sql

Set oRs=oCom.Execute