' BeginCreateTableVB Sub CreateTable() Dim tbl As New Table Dim cat As New ADOX.Catalog 'Open the catalog. ' Open the Catalog. cat.ActiveConnection = _ "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=c:\Program Files\Microsoft Office\" & _ "Office\Samples\Northwind.mdb;" tbl.Name = "MyTable" tbl.Columns.Append "Column1", adInteger tbl.Columns.Append "Column2", adInteger tbl.Columns.Append "Column3", adVarWChar, 50 cat.Tables.Append tbl End Sub ' EndCreateTableVB>I am trying to hack through the MSKB JET OLEDB samples to figure out how to create a database and tables and indexes through VBScript. So far I am not getting very far. Has anyone already tried to do this?