下边是我这两天研究网上的资料自己写的一个东东，但写不进去，贴上代码，请高手帮忙看看：
Option Explicit
Function action
Dim objTag1,objTag2,objTag3,objTag4,DDays,MyTime,database,server,uid,pwd,strcn,cn,is_SQL
MyTime = Now 'now time 24:00:00
DDays = Date() 'now day 2010-05-25
Set objTag1 = HMIRuntime.Tags("a_tsb_run")
Set objTag2 = HMIRuntime.Tags("b_tsb_run")
Set objTag3 = HMIRuntime.Tags("c_tsb_run")
Set objTag4 = HMIRuntime.Tags("d_tsb_run")
objTag1.Read()
objTag2.Read()
objTag3.Read()
objTag4.Read()
database="tempdb"
server="1B3F819AA60C4F4\WINCC"
uid="sa"
pwd=""
strcn = "Provider=SQLOLEDB.1;DRIVER=SQL SERVER;SERVER=" &server &";DATABASE="& database &";UID="& uid &";PWD="& pwd
Set cn = CreateObject("ADODB.Connection")
cn.ConnectionString = strcn
cn.Open
is_SQL= "INSERT INTO temp (id,value,dates,times) VALUES SELECT 1,"&objTag.Value&MyTime&DDays&MyTime&"UNION SELECT 2"&objTag1.Value&MyTime&DDays&MyTime
cn.Execute is_SQL
cn.close
Set cn=Nothing
Set objTag1=Nothing
Set objTag2=Nothing
Set objTag3=Nothing
Set objTag4=Nothing
End Function