Access 清空表(自动增长重置为1开始)

set rs=server.CreateObject("adodb.recordset") 
set targetconn=server.CreateObject("adodb.connection") 
targetconn.open "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath("db/db1.mdb") 
targetconn.execute("delete * from admingroupinf") 
targetconn.execute("drop index id on admingroupinf") ''删除索引 
targetconn.execute("alter table admingroupinf drop column id") ''删除列 
targetconn.execute("alter table admingroupinf add column id autoincrement(0,1)") ''这句的(0,1)是关键 
targetconn.execute("create index id on admingroupinf(id)") ''重新创建索引 
targetconn.close 
set targetconn=nothing 
set rs=nothing