<%
Set Catalog_object= Server.CreateObject("ADOX.Catalog")
Catalog_object.Create("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("TEST.MDB"))
SET conn= Server.CreateObject("adodb.connection")
conn.open "provider=microsoft.jet.oledb.4.0;data source="& Server.MapPath("TEST.MDB")
set Command1 = Server.CreateObject("ADODB.Command")
Command1.ActiveConnection = conn
Command1.CommandText = "create table aaa(field1 text(10) CONSTRAINT MyFieldConstraint PRIMARY KEY,field2 datetime,field3 memo)"
Command1.CommandType = 1
Command1.CommandTimeout = 0
Command1.Prepared = true
Command1.Execute()
%>