MS-Access. Create a new autonumber field in existing table.

Sub CreateNewAutonumberfield()

Dim db As DAO.Database
Dim tdf As DAO.TableDef
Dim fld As DAO.Field
Dim idx As DAO.Index
Dim rel As DAO.Relation


Set db = CurrentDb
On Error Resume Next
'********************************************

' Create new field ID2 of table Table1
Set tdf = db.TableDefs("T_AdjustCntlRecord")
Set fld = tdf.CreateField("ID2", dbLong)
SetPro fld, "Attributes", dbLong, 17
tdf.Fields.Append fld
SetPro fld, "AllowZeroLength", dbBoolean, False
SetPro fld, "DefaultValue", dbText, ""
SetPro fld, "OrdinalPosition", dbLong, 1
SetPro fld, "Required", dbBoolean, False

' create index ID2 of table Table1
Set tdf = db.TableDefs("T_AdjustCntlRecord")
Set idx = tdf.CreateIndex("ID2")
Set fld = idx.CreateField("ID2")
idx.Fields.Append fld
tdf.Indexes.Append idx


End Sub



Private Sub SetPro(o As Object, s As String, t As DataTypeEnum, v As Variant)
'Set the properties
On Error GoTo Problems
o.Properties(s) = v
Exit Sub
Problems:
If Err = 3270 Then
o.Properties.Append o.CreateProperty(s, t, v)
Resume ProblemsX
End If
On Error GoTo 0
Resume
ProblemsX:
End Sub