关于操作数据库的(已解决)

没有知道

请教一下怎么删除一条被选中的记录，下面的del()用在别的数据库可以，但是用载远古ACC的就不行，望高手们指点，数据库是远古刚装出来的

#include <GUIConstants.au3>
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <ListViewConstants.au3>
#include <WindowsConstants.au3>
$mdb_data_path="data.mdb";数据库名
$mdb_data_pwd="viewgood" ;数据库密码
$tblname="TypeInfo";表
$ziduan="TypeName"
$T="*"

$tatle1 = IniRead("data.ini", "标题", "标题1", "未知")
$tatle2 = IniRead("data.ini", "标题", "标题2", "未知")
$A1 = IniRead("data.ini", "data", "分类1", "未知")
$A2 = IniRead("data.ini", "data", "分类2", "未知")
$A3 = IniRead("data.ini", "data", "分类3", "未知")
$A4 = IniRead("data.ini", "data", "分类4", "未知")
$A5 = IniRead("data.ini", "data", "分类5", "未知")
$A6 = IniRead("data.ini", "data", "分类6", "未知")
$A7 = IniRead("data.ini", "data", "分类7", "未知")
$A8 = IniRead("data.ini", "data", "分类8", "未知")
$A9 = IniRead("data.ini", "data", "分类9", "未知")
$A10 = IniRead("data.ini", "data", "分类10", "未知")
$A11 = IniRead("data.ini", "data", "分类11", "未知")

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("网吧管理", 700, 430, 193, 100)
$ListView1 = GUICtrlCreateListView("   ID  |      1  |    2  |    3    |    4     |      5     |       6     |     7    ", 8, 100, 680, 321, -1 );,$LVS_EX_GRIDLINES
$Button1 = GUICtrlCreateButton("读取", 24, 60, 75, 25, 0)
$Button2 = GUICtrlCreateButton("写入", 120, 60, 75, 25, 0)
$Button3 = GUICtrlCreateButton("删除", 220, 60, 75, 25, 0)
$Button4 = GUICtrlCreateButton("刷新", 320, 60, 75, 25, 0)
$Label1 = GUICtrlCreateLabel($tatle1&@CRLF&$tatle2, 8, 8, 609, 50)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg
                Case $GUI_EVENT_CLOSE
                        Exit
                Case $Button1
                          du()
                          
                Case $Button2                 
                          sr()
                Case $Button3
                          del()
                Case $Button4
                          up()
                          du()
                          
EndSwitch
WEnd

Func du()
     GUICtrlSendMsg($ListView1, $LVM_DELETEALLITEMS, 0, 0)
          $addfld = ObjCreate("ADODB.Connection")
                  $addfld.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & $mdb_data_path & ";Jet Oledb:Database Password=" & $mdb_data_pwd)
                  $RS =ObjCreate("ADODB.Recordset")
                  $RS.ActiveConnection = $addfld
          $RS.Open ("Select "&$T & " From " & $tblname )
          while Not $RS.eof And Not $RS.bof
                        if @error =1 Then ExitLoop
                        GUICtrlCreateListViewItem ( $RS.Fields (0).value&"|"& $RS.Fields (1).value&"|"& $RS.Fields (2).value,$ListView1 )
                
                                $rs.movenext
                  WEnd
               $rs.close
                           $addfld.Close
                           MsgBox(0,"","已打开"&$mdb_data_path&"数据库")
EndFunc
                  
Func sr()
         $addfld = ObjCreate("ADODB.Connection")
         $addfld.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & $mdb_data_path & ";Jet Oledb:Database Password=" & $mdb_data_pwd)
                 $addfld.Execute("insert into TypeInfo (TypeName) values('"&$A1&"')")
                 $addfld.Execute("insert into TypeInfo (TypeName) values('"&$A2&"')")
                 $addfld.Execute("insert into TypeInfo (TypeName) values('"&$A3&"')")
                 $addfld.Execute("insert into TypeInfo (TypeName) values('"&$A4&"')")
                 $addfld.Execute("insert into TypeInfo (TypeName) values('"&$A5&"')")
                 $addfld.Execute("insert into TypeInfo (TypeName) values('"&$A6&"')")
                 $addfld.Execute("insert into TypeInfo (TypeName) values('"&$A7&"')")
                 $addfld.Execute("insert into TypeInfo (TypeName) values('"&$A8&"')")
                 $addfld.Execute("insert into TypeInfo (TypeName) values('"&$A9&"')")
                 $addfld.Execute("insert into TypeInfo (TypeName) values('"&$A10&"')")
                 $addfld.Execute("insert into TypeInfo (TypeName) values('"&$A11&"')")
         $addfld.close
         MsgBox(4096, "提示:"," 成功写入数据库！")  
         EndFunc                 

Func del()
            $Strn=GUICtrlRead(GUICtrlRead($ListView1))
            $Strnspin=StringSplit($Strn,"|")                           
            $addfld = ObjCreate("ADODB.Connection")
                        $addfld.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & $mdb_data_path & ";Jet Oledb:Database Password=" & $mdb_data_pwd)
            $sQuery = ("DELETE FROM " & $tblname & " IN '" & $mdb_data_path & "' WHERE id" & " = " & $Strnspin[1])
            MsgBox(0,"",$sQuery)
                        $addfld.execute($sQuery)
                        $addfld.execute($sQuery)
            $addfld.close
 MsgBox(4096, "提示:",$Strnspin[1]&"    删除成功!!!")
 
EndFunc

没有知道

这个问题我已经解决了