vb中怎么定义ACCESS数据表的主键且以1的步长自动递增

vb中如何定义ACCESS数据表的主键且以1的步长自动递增.
vb中如何定义ACCESS数据表的主键且以1的步长自动递增.
Dim cat As New ADOX.Catalog 
Dim tbl As New ADOX.Table 
Dim pstr As String 
Dim DB As String 

DB = App.Path & "" & "department.mdb" 
pstr = "Provider=Microsoft.Jet.OLEDB.4.0;" '数据库驱动 4.0 For Office 2k/2003, 3.5.1 For Office 97 
pstr = pstr & "Data Source=" & DB 

cat.Create pstr '建立数据库 
cat.ActiveConnection = pstr 

tbl.Name = "单位" '定义表名 
tbl.Columns.Append "编号", adInteger '定义字段 
tbl.Columns.Append "单位名称", adVarWChar, 16 '定义字段 
tbl.Columns.Append "线路名称", adVarWChar, 8 '定义字段 
tbl.Columns.Append "起点里程", adDouble 
tbl.Columns.Append "终点里程", adDouble 
tbl.Columns.Append "所属车间", adVarWChar, 16 '定义字段 
tbl.Columns.Append "所属工务段", adVarWChar, 16 '定义字段 
tbl.Columns.Append "所属铁路局", adVarWChar, 16 '定义字段 
tbl.Columns.Append "上级单位编号", adInteger '定义字段 
cat.Tables.Append tbl '建立表 
在这里如何把"编号"字段定义自动+1的主键?

------解决方案--------------------
不懂，帮忙顶一下。