请求动作失败

hdstu

#Region ;**** 参数创建于 ACNWrapper_GUI ****
#AutoIt3Wrapper_icon=..\..\..\..\WINDOWS\system32\SHELL32.dll
#AutoIt3Wrapper_outfile=门户注册工具v1.0.exe
#AutoIt3Wrapper_Res_Fileversion=1.0.1.1
#AutoIt3Wrapper_Res_Fileversion_AutoIncrement=p
#EndRegion ;**** 参数创建于 ACNWrapper_GUI ****
#include <GUIConstants.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
$mdb_data_path = @ScriptDir & "\data.mdb"
If not FileExists($mdb_data_path) then Exit (Msgbox(16,'错误','未找到DATA.MDB文件，请检查文件名和路径'))
$mdb_data_pwd = ""
$sh=""
$mc=""
$szqh=""
$bsy="张三"
$bsylxdh="1234567"
$bsysj="1234567890123"
$cwjl="张三"
$cwjllxdh="1234567"
$cwjlsj="1234567890123"
$zcbm=""
$tblname="XT_QYXX"
#Region ### START Koda GUI section ### Form=C:\Documents and Settings\Administrator\桌面\Form2.kxf
$Form2 = GUICreate("注册工具V1.0.001", 413, 168, 323, 200)
$Label1 = GUICtrlCreateLabel("税号：", 56, 20, 46, 17)
$Input1 = GUICtrlCreateInput("", 152, 16, 141, 21)
$Input2 = GUICtrlCreateInput("", 152, 45, 141, 21)
$Label2 = GUICtrlCreateLabel("名称：", 56, 49, 46, 17)
$Input3 = GUICtrlCreateInput("", 152, 76, 141, 21)
$Label3 = GUICtrlCreateLabel("注册编码：", 56, 80, 74, 17)
$Button1 = GUICtrlCreateButton("注册", 144, 104, 75, 25)
$Label4 = GUICtrlCreateLabel("制作：゛.菏苝亷仯", 272, 136, 119, 17)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

;sx()
While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg
                Case $GUI_EVENT_CLOSE
                        Exit
                Case  $Button1;写入
            sx()
        EndSwitch
WEnd

Func sx()
         $addfld = ObjCreate("ADODB.Connection")
      
       $addfld.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & $mdb_data_path & ";Jet Oledb:Database Password=" & $mdb_data_pwd)
      $x=0
       While 1
        $x+=1
       if $x >1000 Then ExitLoop
      $addfld.Execute("insert into XT_QYXX (QYSBH,ZCM,ZCXLH,QYMC,CWFZR,CWFZRLXHM,CWFZRBGDH,BSY,BSYLXHM,BSYBGDH,XZQHDM) values('"&$sh&"','"&$sh&"','"&$mc&"','"&$cwjl&"','"&$cwjllxdh&"','"&$cwjlsj&"','"&$bsy&"','"&$bsylxdh&"','"&$bsysj&"','"&$szqh&"',)")
     WEnd
      ; $conn.Execute("insert into XT_QYXX (QYSBH,ZCM,ZCXLH,QYMC,CWFZR,CWFZRLXHM,CWFZRBGDH,BSY,BSYLXHM,BSYBGDH,XZQHDM) values('"&$sh&"','"&$sh&"','"&$mc&"','"&$cwjl&"','"&$cwjllxdh&"','"&$cwjlsj&"','"&$bsy&"','"&$bsylxdh&"','"&$bsysj&"','"&$szqh&"',)")
     ;  $RS.close
          $addfld.close
         MsgBox(4096, "提示:"," 恭喜你注册成功！")  
EndFunc

大家帮忙看看如何解决..