Dim DB As ADOX.Catalog      ' (объект) Microsoft ADO Ext. 2.7 for DDL and Security
        Dim TB As ADOX.Table
        Set DB = New ADOX.Catalog:  DB.Create "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & path5 & "\" & basa5 & ";"
'       Dim usr As ADOX.User
'       Set usr = New ADOX.User
'       usr.Name = "Admin"
'       DB.Users.Append usr
'       DB.Users("Admin").ChangePassword "", pass5          НЕ РАБОТАЕТ
'       Set usr = Nothing
    
        Set TB = New ADOX.Table
        TB.Name = "table5"
        TB.Columns.Append "pole1", adVarWChar, 6
        TB.Columns.Append "pole2", adVarWChar, 10
        
        Dim idx As New ADOX.Index
        idx.Name = "KLUCH"
        idx.Columns.Append "pole1"
        idx.Columns.Append "pole2"
        TB.Indexes.Append idx
        
        DB.Tables.Append TB
        Set TB = Nothing
        Set DB = Nothing