For Each AccessFeld In TabAccess.Fields
    With AccessFeld
      Feld.Name = .Name
      Feld.Type = .Type
      Select Case .Type
        Case dbMemo
          'Feld.AllowZeroLength = .AllowZeroLength
        Case dbText
          'Feld.Size = IIf(.Size >= 255, 254, .Size)
          'Feld.AllowZeroLength = .AllowZeroLength
      End Select
      Feld.Attributes = .Attributes
      'Feld.DefaultValue = .DefaultValue
      'Feld.Required = .Required
    End With
    TabDef.Fields.Append Feld
    Set Feld = Nothing
  Next