Sub test()
CurrentProject.Connection.Execute "create table список " & _
    "(КодГруппы Counter Constraint PrimaryKey PRIMARY KEY," & _
    "Фамилия TEXT(6) NOT NULL," & _
    "Номер_зачетки TEXT(20) UNIQUE," & _
    "Адрес TEXT(12)," & _
    "Год_поступления INTEGER NOT NULL," & _
    "[№_специальности] INTEGER DEFAULT 5," & _
    "[№_группы] INTEGER);"
End Sub