Local oTbl, oCat oCat = CreateObject("ADOX.Catalog") oTbl = CreateObject("ADOX.Table") oCat.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.3.51;"+; "Persist Security Info=False;"+; "Data Source=D:\Test\db1.mdb" oTbl.Name = "MyTable" oTbl.Columns.Append("Column1", 129) oCat.Tables.Append(oTbl)