自增长列清0：alter table tt alter column[id] counter(1,1);
写模块访问数据库：
Dim rs As Recordset
Dim a As String
Set rs = CurrentDb.OpenRecordset("", dbOpenTable)
rs.MoveFirst
While (Not rs.EOF)
rs.Edit
a = rs.Fields("")
rs.Fields("") = a
rs.Update
rs.MoveNext
Wend
rs.Close