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

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