利用ADOX的Catalog对象的Create方法创建一个新的ACCESS2000数据库,在窗体中某个按钮事件中写下述代码：

Dim strPathToFile As String
Dim strConn As String
Dim cat As New ADOX.Catalog
strPathToFile = CurrentProject.Path + "\new.mdb"
strConn = "provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & strPathToFile & ";"
Set cat = New ADOX.Catalog
cat.create strConn

注意：要引用 Microsoft ADO Ext.2.7 for Dll and security(或2.8),不是ADO（Microsoft Activex Data Objects）