Ошибка "Items cannot be found in the collection"

Dim ADOXcatalog As New adox.Catalog
Dim ADOXtable As New adox.Table
Dim key As adox.key
 
ADOXcatalog.ActiveConnection = 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' & App.Path + 'halldb.mdb'
    With ADOXtable
        .Name = 'Employees'
        .Columns.Append 'ID', adInteger
        .Columns.Append 'DocumentNo', adVarWChar, 20
        .Columns.Append 'FacilCod', adVarWChar, 3
        .Columns.Append 'RecDate', adDate
        .Columns('ID').Properties('Autoincrement') = True
        
        .Keys.Append 'Primary key', adKeyPrimary, 'ID' ------ OSHIBKA 'ITEMS CANNNOT BE FOUND IN THE COLLECTION.........
 
    End With
ADOXcatalog.Tables.Append ADOXtable

Dim ADOXcatalog As New ADOX.Catalog
Dim ADOXtable As New ADOX.Table
Dim key As ADOX.key
Dim col As New ADOX.Column
 
ADOXcatalog.ActiveConnection = CurrentProject.Connection
With col
    .ParentCatalog = ADOXcatalog
    .Type = adInteger
    .name = 'ID'
    .Properties('Autoincrement') = True
End With
 
With ADOXtable
    .name = 'Employees'
    .Columns.Append col
    .Columns.Append 'DocumentNo', adVarWChar, 20
    .Columns.Append 'FacilCod', adVarWChar, 3
    .Columns.Append 'RecDate', adDate
    .Keys.Append 'Primary key', adKeyPrimary, 'ID'
End With
ADOXcatalog.Tables.Append ADOXtable

col.Properties('Required') = No

col.Attributes = adColNullable