Private Sub isprav2()
    Dim rcd As ADODB.Recordset
    Set rcd = New ADODB.Recordset
    rcd.Open "svod", CurrentProject.Connection, adOpenKeyset, adLockPessimistic, adCmdTable
    i = rcd.Fields.Count
    For i =  2  To rcd.Fields.Count
    rcd.Fields.Item(i).Name = Change(rcd.Fields.Item(i).Name)
    rcd.Update
    Next i
   
    End Sub

Dim MyCat As ADOX.Catalog
Dim Mytable As ADOX.Table
Set MyCat = New ADOX.Catalog
MyCat.ActiveConnection = CurrentProject.Connection
Set Mytable = MyCat.Tables("Tcorp")
Mytable.Columns("Anna").Name = "Inga"
Debug.Print Err.Description
Set Mytable = Nothing
Set MyCat = Nothing