01. ADO и DAO - два разных метода доступа к данным реализованы в этом примере. Используйте этот пример для создания новых баз данных из Access. ADOX - это библиотека расширенных функций базы данных.
'==============================================================
' ADOX. Создание базы данных
Private Sub butADO_Click()
Dim cat As New ADOX.Catalog, strmdb As String
' Определение файла
strmdb = Application.CurrentProject.Path "\temp.mdb" ' Путь базы
If Dir(strmdb) "" Then Kill strmdb 'Уничтожаем старую базу данных
' ADOX. Создание базы
cat.Create "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" strmdb
Set cat = Nothing
MsgBox "База создана (ADOX)!", vbExclamation, "Лидер Access"
' Удаление базы
If Dir(strmdb) "" Then Kill strmdb 'Уничтожаем старую базу данных
End Sub
'==============================================================
' DAO. Открытие базы данных
Private Sub butDAO_Click()
Dim dbs As DAO.Database, strmdb As String
' Определение файла
strmdb = Application.CurrentProject.Path "\temp.mdb" ' Путь базы
If Dir(strmdb) "" Then Kill strmdb 'Уничтожаем старую базу данных
' DAO. Открываем на чтение
DBEngine.CreateDatabase strmdb, dbLangCyrillic
MsgBox "База создана (DAO)!", vbExclamation, "Лидер Access"
' Удаление базы
If Dir(strmdb) "" Then Kill strmdb 'Уничтожаем старую базу данных
End Sub