Option Explicit
'De como crear una tabla, unos campos y añadir registros.
'Además de como crear un campo (Campo1) con la propiedad
'dbFixedField. Haz la prueba e intenta volver a escribir o editar dicho campo
Sub CratablaCampos()
Dim Mitabla As TableDef, MiCampo As DAO.Field, MiPropiedadDAO As DAO.Property
Dim Rst As DAO.Recordset
      'en la MDB actual: Currentdb
      Set Mitabla = CurrentDb.CreateTableDef("MiTabla")

      With Mitabla
         .Fields.Append .CreateField("Campo1", dbText, 50)
         .Fields.Append .CreateField("Campo2", dbText, 50)
       End With

       Set MiCampo = Mitabla("Campo1")
       For Each MiPropiedadDAO In MiCampo.Properties
        If MiPropiedadDAO.name = "Attributes" Then
             MiPropiedadDAO.Value = dbFixedField
             Exit For
        End If
       Next
       Set MiCampo = Nothing

       CurrentDb.TableDefs.Append Mitabla
       Set Rst = CurrentDb.OpenRecordset("MiTabla")
       With Rst
        .AddNew
        !campo1 = "HOLA"
        !campo2 = "ADIOS"
        .Update
        .Close
       End With
       Set Mitabla = Nothing

End Sub