What rally springs to mind is this:
Why do you need a table instead of a Query?
But you want an anwer instead of a question I suppose.....
Code:
Sub AddTable()
Dim db As DAO.Database
Dim tbl As DAO.TableDef
' you should look at the optional arguments too
Set db = DAO.OpenDatabase("Yourdatabase")
Set tbl = db.CreateTableDef("Test2")
tbl.Fields.Append tbl.CreateField("Id", dbLong)
tbl.Fields.Append tbl.CreateField("Name", dbText, 50)
tbl.Fields.Append tbl.CreateField("Stmp", dbDate)
db.TableDefs.Append tbl
Set tbl = Nothing
db.Close
Set db = Nothing
End Sub
will make a table the SQL DROP table as suggested will delete it
you could also use the SQL CREATE TABLE to build one but in Access DAO should work fine