wincc中数据归档和查询问题

Dim Data1, Data2, Data3,Data4,Data5,Data6,Data7,Data8
Data1=HMIRuntime.tags("序号").read
Data2=HMIRuntime.tags("编号").read
Data3=HMIRuntime.tags("管长").read
Data4=HMIRuntime.tags("管重").read
Data5=HMIRuntime.tags("规格").read
Data6=HMIRuntime.tags("内径").read
Data7=HMIRuntime.tags("外径").read
Con="Provider=MSDASQL;DSN=铸管;UID=zxl;PWD=123"
Set conn = CreateObject("ADODB.Connection")
 conn.ConnectionString = Con
conn.CursorLocation = 3
 conn.Open
sSql="insert into 铸管 VALUES('" & Data1 & "','" & Data2&"','"&Data3&"','"&Data4&"','"&Data5&"','"&Data6&"','"&Data7&"');"
 Set oRs = CreateObject("ADODB.Recordset")
 Set oCom = CreateObject("ADODB.Command")
 Set oCom.ActiveConnection = conn
 oCom.CommandType = 1
 oCom.CommandText = sSql
 Set oRs = oCom.Execute
 Set oRs = Nothing
 conn.Close
 Set conn = Nothing
不知道思路有没有问题，程序有没有问题啊？