dim cn as new adodb.connection
cn.provider="SQLOLEDB"
cn.open "driver={sql server};server=servername;uid=sa;pwd=password;database=master"
cn.execute "create database dbname"
cn.execute "use dbname"
cn.execute "create table1 (field1 char(10),...)"
cn.provider="SQLOLEDB"
cn.open "driver={sql server};server=servername;uid=sa;pwd=password;database=master"
cn.execute "create database dbname"
cn.execute "use dbname"
cn.execute "create table1 (field1 char(10),...)"