'====================================================================
'   タイトル：	VBSサンプル(MDBの新規作成)
'   作成日  :	2000/01/04
'   作成者  :	Sugi@み〜くんパパの仕事部屋
'====================================================================
Dim catJetDB
Dim conJetDB
Dim strConnect
Dim strSQL

' 新規JETデータベースの作成
strConnect = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\VBSSAMP.MDB"
Set catJetDB = CreateObject("ADOX.Catalog")
catJetDB.Create strConnect

' 作成したデータベースにテーブルを作成する
Set conJetDB = catJetDB.ActiveConnection

strSQL = "CREATE TABLE 住所録テーブル (ID int Not Null CONSTRAINT PrimaryKey PRIMARY KEY, 氏名 varchar(50), フリガナ varchar(50), 住所 varchar(50), 電話番号 varchar(20))"
conJetDB.Execute strSQL

' ADOコネクションを閉じる
conJetDB.Close
Set conJetDB = Nothing

' Catalogオブジェクトの開放
Set catJetDB = Nothing

MsgBox "データベースの作成が完了しました。", vbInformation, "サンプル終了確認"