用VBS给Access数据库写入数据，共15个变量，太多，写不进去，单独写几个能写进去，是我的程序有问题，还是VBS不支持太长的语句，wincc 的VBs不支持换行

语句如下：

Sub OnLButtonUp(ByVal Item, ByVal Flags, ByVal x, ByVal y)   

Dim objConnection

Dim strConnectionString

Dim strSQL

Dim objCommand

Dim Data1,Data2,Data3,Data4,Data5,Data6,Data7,Data8,Data9,Data10,Data11,Data12,Data13,Data14,Data15

Data15=Now

strConnectionString = "Provider=MSDASQL;DSN=detail;UID=;PWD=;" 

Data1 = HMIRuntime.Tags("xtrq").Read

Data2 = HMIRuntime.Tags("管号2").Read

Data3 = HMIRuntime.Tags("规格2").Read

Data4 = HMIRuntime.tags("钢级2").read

Data5 = HMIRuntime.tags("炉号2").read

Data6 = HMIRuntime.tags("批号2").read

Data7 = HMIRuntime.tags("设定值2").read

Data8 = HMIRuntime.tags("实际值2").read

Data9 = HMIRuntime.tags("稳压时间2").read

Data10= HMIRuntime.tags("压降2").read

Data11= HMIRuntime.tags("结论2").read

Data12= HMIRuntime.tags("班组2").read

Data13= HMIRuntime.tags("操作者2").read

Data14= HMIRuntime.tags("检验员2").read

strSQL = "INSERT INTO detail (生产日期,管号,规格,钢级,炉号,批号,设定值,实际值,稳压时间,压降,结论,班组,操作者,检验员,stime)values('" & Data1 & "','" & Data2&"','" & Data3&"','" & Data4&"','" & Data5&"','" & Data6&"','" & Data7&"','" & Data8&"','" & Data9&"','" & Data10&"','" & Data11&"','" & Data12&"','" & Data13&"','" & Data14&"','"& Data15 &"');"

Set objConnection = CreateObject("ADODB.Connection")

objConnection.ConnectionString = strConnectionString

objConnection.Open

Set objCommand = CreateObject("ADODB.Command")

With objCommand

.ActiveConnection = objConnection

.CommandText = strSQL

End With

objCommand.Execute

Set objCommand = Nothing

objConnection.Close

Set objConnection = Nothing

End Sub