[Spirosgr]

Καλημέρα
Δοκίμασε:

Option Compare Database
Option Explicit

Public Sub AddField()
    Dim FieldTitle As String
    Dim curDB As Object
    Dim tblTest As Object
    Dim NewField As Object
        
    Set curDB = CurrentDb
    Set tblTest = curDB.TableDefs("tbl_Test")
                
    FieldTitle = "CustID"
    
    Set NewField = tblTest.CreateField(FieldTitle, dbLong)
    NewField.OrdinalPosition = 1
    tblTest.Fields.Append NewField
End Sub

Όπου tbl_Test το όνομα του πίνακα.
Η γραμμή: NewField.OrdinalPosition = 1
είναι προαιρετική και βάζει το πεδίο στην δεύτερη θέση του πίνακα αμέσως μετά το ID του.
0=πρώτη, 1=δεύτερη κλπ.
Αν δεν χρησιμοποιηθεί θα μπει το πεδίο στο τέλος.
ΣΗΜΕΙΩΣΗ:
Για να εμφανιστεί η σειρά σωστά πρέπει ο πίνακας να «σωθεί» στην σχεδίαση.