01. ADO и DAO - два разных метода доступа к данным реализованы в этом примере. Используйте этот пример для создания новых баз данных из Access. ADOX - это библиотека расширенных функций базы данных.

Все примеры Microsoft Access '============================================================== ' 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