---

Sub CreateTable()
    Dim db As DAO.Database
    Dim tdf As DAO.TableDef
    Dim fld As DAO.Field
    Dim prp As DAO.Property

    Set db = CurrentDb()

    On Error Resume Next
    db.TableDefs.Delete "MyTable"
    On Error GoTo 0

    Set tdf = db.CreateTableDef("MyTable")

    Set fld = tdf.CreateField("N", dbLong)
    fld.Attributes = dbAutoIncrField
    tdf.Fields.Append fld

    tdf.Fields.Append tdf.CreateField("Familiya", dbText, 50)
    tdf.Fields.Append tdf.CreateField("Imya", dbText, 50)
    tdf.Fields.Append tdf.CreateField("Adres", dbText, 255)
    tdf.Fields.Append tdf.CreateField("Indeks", dbLong)

    Set fld = tdf.CreateField("Telefon", dbText, 16)
    tdf.Fields.Append fld

    tdf.Fields.Append tdf.CreateField("Hobbi", dbText, 50)

    Set fld = tdf.CreateField("El_pochta", dbMemo)
    fld.Attributes = dbHyperlinkField
    tdf.Fields.Append fld

    db.TableDefs.Append tdf

    Set fld = tdf.Fields("Telefon")
    On Error Resume Next
    fld.Properties("InputMask") = """+7"" 000"" ""000"" ""00"" ""00;0;"
    If Err.Number = 3270 Then
        Set prp = fld.CreateProperty("InputMask", dbText, """+7"" 000"" ""000"" ""00"" ""00;0;")
        fld.Properties.Append prp
    End If
    On Error GoTo 0
End Sub