I swear blind I cannot find how to do this from the MSDN.

>Okay, I've managed to create a table as per Clunietp:

Dim strConnectionStringOfNewDB As String
Dim objCat As ADOX.Catalog

Set objCat = New ADOX.Catalog
strConnectionStringOfNewDB = "Provider=Microsoft.Jet.OLEDB.3.51;Data Source=C:\db.mdb"
objCat.Create strConnectionStringOfNewDB

Set objCat = Nothing

>Now I try to create a table:

cCN.Provider = "Microsoft.Jet.OLEDB.3.51;"
cCN.Properties("Data Source") = "c:\db.mdb"
cCN.Open

Set cRS = cCN.Execute("CREATE TABLE tblint (anumber TEXT atype TEXT);")

>but it falls over on the SQL!
What am I doing wrong? Perhaps I should have started this app in DAO, but I've come so far I can't let ADO beat me now!

Thanks

CYOCONNOR