将XML导入到数据库通过数据服务的本地包中编写activeX代码，然后进行调度，出现的问题

XML文件格式为：
  <?xml version="1.0" encoding="gb2312" ?> 
- <xml>
- <keys>
- <key>
  <id>1</id> 
  <name>hello200</name> 
  <number>36634828</number> 
  </key>
  </keys>
  </xml>
数据包中代码
Const strConn = "Provider=SQLOLEDB;Driver=SQL SERVER;SERVER=localhost;UID=sa;PWD=ww;Connect Timeout=60;DATABASE=XMLInput"
  Dim XMLDoc
  Dim XMLItem, nude
  Dim tmpuid, tmpclick, tmpname, curDate
  Dim xmlFile, strSQL
  Dim conn
  
  strSQL = ""
  curDate = "2007-01-01"
  xmlFile = "D:\number.xml"  Set XMLDoc = CreateObject("MSXML2.DOMDocument")
  If XMLDoc.Load(xmlFile) Then
    Set XMLItem = XMLDoc.getElementsByTagName("key")
    For Each nude In XMLItem
      tmpuid = nude.selectSingleNode("id").Text
      tmpname = nude.selectSingleNode("name").Text
      tmpclick = nude.selectSingleNode("number").Text 
      strSQL =  " Insert A_005(F1_A005,F2_A005,F3_A005,F4_A005,F5_A005)Values " & _
               "('" & tmpuid & "','" & tmpname & "','" & getCurClick(curDate, tmpuid, tmpclick) & "','" & tmpclick & "','" & curDate & "');"
    Next
  End If
  Set XMLDoc = Nothing
  Set conn = CreateObject("ADODB.Connection")
  conn.Open strConn
  conn.Execute strSQL
然后调度
就出现错误
请问错误在哪里
谢谢