access链接后台SQL数据库，表中的自动编号ID如何回到1

pq318

如题所示，access链接表中的自动编号没有办法回到从1开始，找到代码，有个地方不知怎么修改才对啊
模块
Sub 自动编号(tbname As String, MyID As String)
Dim strsql As String
strsql = "ALTER TABLE " & tbname & " DROP COLUMN " & MyID & ""
CurrentDb.Execute strsql
strsql = "ALTER TABLE " & tbname & " ADD COLUMN " & MyID & " Counter"
CurrentDb.Execute strsql
End Sub
窗体按钮单击代码
Private Sub Command99_Click()
Me.form5查询子窗体1.Form.RecordSource = ""
Call 自动编号("form5", "Lable25")
Me.form5查询子窗体1.Form.RecordSource = "form5"
End Sub
关键是模块中的CurrentDb报出错
应该是要连接SQL的语言，无法使用，帮帮小子，谢谢了！

pq318

版主，非常感谢，已经在SQL2005管理界面设置，修改完毕，呵呵，都是打印标签搞得，数字多了，使用人员就有意见了,谢谢!

todaynew

SQL SERVER的自增数据类型应该不是Counter，应该是int类型，并将其设置为标识字段。
1、删除标识列
alter   table   阁下的表名称   drop   column   阁下的标识列名称   
2、重新增加标识列
alter   table   阁下的表名称  add   阁下的标识列名称  int   identity(1,1)
其中 identity(1,1)定义标识，参数1为种子（即从数字几开始编号），参数2为增量（即相邻两条记录的数字差）。
3、手工设置的方法，参见以下视频：
http://school.itzcn.com/video-vid-1957-spid-48.html