; Create a database using ADOX
oCatalog := ComObjCreate("ADOX.Catalog")
oCatalog.Create(sConnectionString)
oTable := ComObjCreate("ADOX.Table")
oTable.Name := "MyTable"
oTable.Columns.Append("ID", 3) ; adInteger 3 Indicates a four-byte signed integer (DBTYPE_I4).
oTable.Columns.Append("Name", 202, 50) ; adVarWChar 202 Indicates a null-terminated Unicode character string.
oCatalog.Tables.Append(oTable)
oTable := ""
oCatalog := ""