Function AppendCaption(FieldName As String, TableName As String)
    '引用DAO
    Dim Tbf As DAO.TableDef
    Dim fld As DAO.Field
    Dim cp As DAO.Property
    On Error Resume Next
    Dim i As Integer
    For Each Tbf In CurrentDb.TableDefs
        For Each fld In Tbf.Fields
            If fld.Name = FieldName And Tbf.Name = TableName Then
                Set cp = fld.CreateProperty("Caption", 12, "aa")
                fld.Properties.Append cp
                Set cp = fld.CreateProperty("Description", 10, "aa")
                fld.Properties.Append cp
            End If
         Next
    Next
End Function