次のコードでは、Create メソッドで新規 Jet データベースを作成する方法を示します。
Sub CreateDatabase() Dim cat As New ADOX.Catalog cat.Create "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\new.mdb" End Sub