wincc 7.2SQL2008建立了一个数据库：report_db，数据库下一个表day_reporta，表里面riqi 为datetime，A1~5为 float
我通过以下脚本链接SQL写数据脚本如下：
Dim conn
Dim Con
Dim sSql
Dim riqi
Dim A1,A2,A3,A4,A5

riqi = Now
A1=HMIRuntime.Tags("P101A_A").Read
A2=HMIRuntime.Tags("P101B_A").Read
A3=HMIRuntime.Tags("FT101").Read
A4=HMIRuntime.Tags("LI101").Read
A5=HMIRuntime.Tags("TE101").Read

Con="Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=report_db;Data Source=PATTY\WINCC"

Set conn = CreateObject("ADODB.Connection")
conn.ConnectionString = Con
conn.CursorLocation = 3
conn.Open
sSql="insert day_reporta Values('"&riqi&"','"&A1&"','"&A2&"','"&A3&"','"&A4&"','"&A5&"')"
Msgbox 0
conn.Execute sSql
Msgbox 1
conn.Close
Msgbox 2
运行到conn.Execute sSql时就运行不下去了，求大神帮帮忙吧