ADOX error 3251

[Mimi]

I could not get the catCurr.Tables.Append tblNew to
execute when trying to create a new table using adox.
Dim catCurr As New ADOX.Catalog
Dim tblNew As New ADOX.Table
catCurr.ActiveConnection = CurrentProject.Connection
tblNew.Name = "TestImport"
tblNew.ParentCatalog = catCurr
tblNew.Columns.Append "ID", adNumeric

catCurr.Tables.Append tblNew
and it blew up right here.

I found some snippet about INSTCAT.sql, but don't know
how to run it against the MDSE Access Desktop SQL.

My system is running XP, Access 2002.
I've made references to MS ActiveX Data Object 2.7 Lib.
Also, MS ADO ext. 2.7 for Dll and Security.
Please Help.
MTN