VBA - MS Access - Create new table

' Tao table
        Set db = CurrentDb
        Set table = db.CreateTableDef("Items")
       
        Set col = table.CreateField("Id", dbLong)
        col.Attributes = dbAutoIncrField
        table.Fields.Append col
       
        table.Fields.Append table.CreateField("Name", dbText, 100)
       
        db.TableDefs.Append table