参考如下脚本的步骤可查询数据库

LMName = HMIRuntime.Tags ("@LocalMachineName").Read

IGCStr="Provider=SQLOLEDB.1;Password=1234567890;Persist Security Info=True;User ID=sa;Initial Catalog=inputtasklist;Data Source="&LMName&"\WINCC"

Set IGCcom=CreateObject("ADODB.Connection")

IGCcom.open IGCStr

Set IGCRS = CreateObject("ADODB.Recordset")

Dim IGCsql

IGCsql = "SELECT * FROM " & CStr(HMIRuntime.Tags ("lastInListName").Read)

IGCRS.Open IGCsql,IGCcom