---

Option Compare Database

    Set db = CurrentDb

    On Error Resume Next
    db.Execute "DROP TABLE Друзья"
    On Error GoTo 0

    ' Создание таблицы
    sql = "CREATE TABLE Друзья (" & _
          "[№] COUNTER PRIMARY KEY, " & _
          "[Фамилия] TEXT(30), " & _
          "[Имя] TEXT(30), " & _
          "[Отчество] TEXT(30), " & _
          "[Телефон] TEXT(16), " & _
          "[Дата рождения] DATETIME, " & _
          "[Хобби] TEXT(50), " & _
          "[Адрес] TEXT(100), " & _
          "[Индекс] TEXT(10), " & _
          "[Эл_почта] TEXT(50), " & _
          "[Семейное положение] TEXT(20))"

    db.Execute sql

    ' Маска телефона
    db.TableDefs("Друзья").Fields("Телефон").Properties.Append _
    db.TableDefs("Друзья").Fields("Телефон").CreateProperty( _
    "InputMask", dbText, "+7 000 000 00 00")

    ' Добавление 10 записей

    db.Execute "INSERT INTO Друзья ([Фамилия],[Имя],[Отчество],[Телефон],[Дата рождения],[Хобби],[Адрес],[Индекс],[Эл_почта],[Семейное положение]) VALUES ('Иванов','Алексей','Петрович','+7 901 111 11 11',#01/15/2000#,'Футбол','Москва, Ленина 1','101000','alex1@mail.ru','не женат')"

    db.Execute "INSERT INTO Друзья ([Фамилия],[Имя],[Отчество],[Телефон],[Дата рождения],[Хобби],[Адрес],[Индекс],[Эл_почта],[Семейное положение]) VALUES ('Смирнова','Анна','Игоревна','+7 902 222 22 22',#02/10/2001#,'Музыка','Казань, Гагарина 5','420000','anna@mail.ru','не замужем')"

    db.Execute "INSERT INTO Друзья ([Фамилия],[Имя],[Отчество],[Телефон],[Дата рождения],[Хобби],[Адрес],[Индекс],[Эл_почта],[Семейное положение]) VALUES ('Кузнецов','Дмитрий','Андреевич','+7 903 333 33 33',#03/11/2000#,'Шахматы','Самара, Победы 10','443000','dmitriy@mail.ru','женат')"

    db.Execute "INSERT INTO Друзья ([Фамилия],[Имя],[Отчество],[Телефон],[Дата рождения],[Хобби],[Адрес],[Индекс],[Эл_почта],[Семейное положение]) VALUES ('Петрова','Елена','Сергеевна','+7 904 444 44 44',#04/21/2002#,'Рисование','Тула, Советская 7','300000','elena@mail.ru','замужем')"

    db.Execute "INSERT INTO Друзья ([Фамилия],[Имя],[Отчество],[Телефон],[Дата рождения],[Хобби],[Адрес],[Индекс],[Эл_почта],[Семейное положение]) VALUES ('Орлов','Максим','Викторович','+7 905 555 55 55',#05/18/1999#,'Плавание','Омск, Молодежная 3','644000','maks@mail.ru','не женат')"

    db.Execute "INSERT INTO Друзья ([Фамилия],[Имя],[Отчество],[Телефон],[Дата рождения],[Хобби],[Адрес],[Индекс],[Эл_почта],[Семейное положение]) VALUES ('Морозова','Дарья','Олеговна','+7 906 666 66 66',#06/09/2001#,'Танцы','Пермь, Мира 12','614000','darya@mail.ru','не замужем')"

    db.Execute "INSERT INTO Друзья ([Фамилия],[Имя],[Отчество],[Телефон],[Дата рождения],[Хобби],[Адрес],[Индекс],[Эл_почта],[Семейное положение]) VALUES ('Федоров','Илья','Николаевич','+7 907 777 77 77',#07/30/2000#,'Программирование','Сочи, Курортная 8','354000','ilya@mail.ru','не женат')"

    db.Execute "INSERT INTO Друзья ([Фамилия],[Имя],[Отчество],[Телефон],[Дата рождения],[Хобби],[Адрес],[Индекс],[Эл_почта],[Семейное положение]) VALUES ('Васильева','Мария','Александровна','+7 908 888 88 88',#08/25/2002#,'Чтение','Уфа, Центральная 15','450000','maria@mail.ru','не замужем')"

    db.Execute "INSERT INTO Друзья ([Фамилия],[Имя],[Отчество],[Телефон],[Дата рождения],[Хобби],[Адрес],[Индекс],[Эл_почта],[Семейное положение]) VALUES ('Соколов','Кирилл','Евгеньевич','+7 909 999 99 99',#09/12/1998#,'Гитара','Воронеж, Южная 6','394000','kirill@mail.ru','женат')"

    db.Execute "INSERT INTO Друзья ([Фамилия],[Имя],[Отчество],[Телефон],[Дата рождения],[Хобби],[Адрес],[Индекс],[Эл_почта],[Семейное положение]) VALUES ('Николаева','Ольга','Павловна','+7 910 123 45 67',#10/17/2001#,'Фотография','Томск, Сибирская 9','634000','olga@mail.ru','замужем')"

    ' Переименование поля
    db.TableDefs("Друзья").Fields("Хобби").Name = "Увлечения"

    ' Удаление записи №8
    db.Execute "DELETE FROM Друзья WHERE [№]=8"

    MsgBox "База данных успешно создана и заполнена", vbInformation

    Set db = Nothing

End Sub