Dim OldDatabase As DAO.DataBase
Dim NewTable As DAO.TableDef
Set OldDatabase = CurrentDb
Set NewTable = OldDatabase.CreateTableDef("NewTableName")
With NewTable
.Fields.Append .CreateField("F1", dbDouble)
.Fields.Append .CreateField("F2", dbText, 255)
End With
OldDatabase.TableDEFS.Append NewTable