Dim cat As New ADOX.Catalog Set cat.ActiveConnection = CurrentProject.Connection cat.Tables.Item(strStaroeImja).Name = strNovoeImja