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