将数据导入SQLServer中，不知道为什么以下代码不能正常运行。

作者：金字塔来源：cxh99.com 发布时间：2014年04月17日

咨询内容： 请教：我想将数据导入SQLServer中，不知道为什么以下代码不能正常运行
Set adoConn=CreateObject("Adodb.Connection")
'连接数据库
cnnSting="Provider=SQLOLEDB;Data Source=EVE_ZHENG\sqlexpress;Initial Catalog=securityDB;Persist Security Info=True;User ID=sa;Password=steward1"
adoConn.Open cnnSting

MsgBox cnnSting
'读取合约分钟线数据
Set HistroyData = marketdata.GetHistoryData("ag00","sq",0)'若要是分钟这里填0，日线填5 上期所=SQ,大期所=DQ,郑期所=ZQ

for i = HistroyData.count-1  to 1 step -1
strSql="insert into datam1(品种代码,交易日期,时,分,o,h,l,c,成交量)values('AG00','" & HistroyData.date(i)

strSql=strSql & "'," &  mid(HistroyData.date(i),12,2) &"," &  mid(HistroyData.date(i),114,2) &","  & HistroyData.Open(i) & "," & HistroyData.High(i) & "," & HistroyData.Low(i) & "," & HistroyData.Close(i)
strSql=strSql  & "," & HistroyData.Volume(i) & ")"
MsgBox strSql
adoConn.Execute strSql
最后一个MSGBOX 没有显示
金字塔客服：
搞定了，是

Set HistroyData = marketdata.GetHistoryData("ag00","sq",0)'若要是分钟这里填0，日线填5 上期所=SQ,大期所=DQ,郑期所=ZQ

没有得到相关的数据。