Dim db As dao.Database
Dim tdf As dao.TableDef
Dim fld As dao.Field
Set db = CurrentDb()
Set tdf = db.CreateTableDef("tbl " & Text11)
With tdf
Set fld = .CreateField("ID", dbLong)
fld.Attributes = dbAutoIncrField + dbFixedField
.Fields.Append fld
.Fields.Append .CreateField("No", DB_DOUBLE)
.Fields.Append .CreateField("Inbox", dbText, 255)
. .Fields.Append .CreateField("Data", dbDate)
End With
On Error GoTo x
db.TableDefs.Append tdf
Set fld = Nothing
Set tdf = Nothing
Application.RefreshDatabaseWindow
Set fld = Nothing
Set tdf = Nothing
Set db = Nothing
x: