在access vba中重命名字段

Sub RenameField()
    Dim db As DAO.Database
    Dim tdf As DAO.TableDef
    Dim fld As DAO.Field
    
    ' 打开数据库
    Set db = CurrentDb
    
    ' 获取表格对象
    Set tdf = db.TableDefs("YourTableName")
    
    ' 获取字段对象
    Set fld = tdf.Fields("OldFieldName")
    
    ' 修改字段名
    fld.Name = "NewFieldName"
    
    ' 保存修改
    tdf.Fields.Append fld
    tdf.Fields.Refresh
    
    ' 关闭数据库
    db.Close
    
    Set fld = Nothing
    Set tdf = Nothing
    Set db = Nothing
End Sub