Public Function SetFieldCaption(ByVal aTableName As String, ByVal aFieldName As String, ByVal aCaption As String)
Dim DB As Database, TD As TableDef, F As Field, P As Property
    On Error Resume Next
    Set DB = CurrentDb
    Set TD = DB.TableDefs(aTableName)
    Set F = TD.Fields(aFieldName)
    Set P = F.Properties( "Caption" )
    If Err <>  0  Then
        If Len(aCaption) =  0  Then Exit Function
        Set P = F.CreateProperty( "Caption" , dbMemo, aCaption)
        F.Properties.Append P
    Else
        If Len(aCaption) =  0  Then F.Properties.Delete  "Caption"  Else F.Properties( "Caption" ) = aCaption
        End If
    F.Properties.Refresh
End Function