'引用 Microsoft ADO Ext. 2.6 for DDL and Security
Private Sub Command1_Click()
Dim catalog1 As New ADOX.Catalog
catalog1.Create "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\new.mdb"
End Sub
Dim cnnNewDB As Database
'創建Access2000
Set cnnNewDB = CreateDatabase("c:\Newsletter.mdb", dbLangGeneral, dbVersion40)
'創建Access97
Set cnnNewDB = CreateDatabase("c:\Newsletter.mdb", dbLangGeneral, dbVersion30)