MS Access | ADO | Создать новую БД

'создание новой базы через ADO

Sub CreateDB_ADO()

Dim cat As ADOX.Catalog

If Dir(CurDir & "\test.mdb") <> "" Then

   Kill CurDir & "\test.mdb"

End If

Set cat = New ADOX.Catalog

cat.Create "Provider=" & Provider & ";Data Source=" & CurDir & "\test.mdb"

End Sub