CREATE TABLE with no columns

[peregenem]

Anyone noticed this one?

CurrentProject.Connection.Execute _
"CREATE TABLE Oops;"

Set rs = _
CurrentProject.Connection.Execute _
("SELECT COUNT(*) FROM Oops;")

 

[peregenem]

Set rs = _
CurrentProject.Connection.Execute _
("SELECT COUNT(*) FROM Oops;")

A workaround for this (unusual) error:

Set rs = _
CurrentProject.Connection.OpenSchema(adSchemaStatistics)

rs.Filter = "TABLE_NAME = 'Oops'"

MsgBox rs.Fields("CARDINALITY").Value