Sub ADOCreateDatabase() Dim cat As New ADOX.Catalog cat.Create "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=.\New.mdb;" End Sub Sub ADOCreateTable() Dim cat As New ADOX.Catalog Dim tbl As New ADOX.Table ' Open the catalog cat.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=.\NorthWind.mdb;" ' Create a new Table object. With tbl .Name = "Contacts" ' Create fields and append them to the new Table ' object. This must be done before appending the ' Table object to the Tables collection of the ' Catalog. .Columns.Append "ContactName", adVarWChar .Columns.Append "ContactTitle", adVarWChar .Columns.Append "Phone", adVarWChar .Columns.Append "Notes", adLongVarWChar .Columns("Notes").Attributes = adColNullable End With ' Add the new table to the database. cat.Tables.Append tbl Set cat = Nothing End SubHere is a link with more samples (sorry my VBA):