FieldオブジェクトのNameプロパティを使って、フィールド名を変更します。
　サンプルプロシージャでは、テーブル「商品管理」の全フィールド名の後ろに
「★」を付けて、フィールド名を変更しています。

● サンプル　●

Sub Sample()
    Dim db        As Database
    Dim TDef      As TableDef
    Dim myFldName As Field
    
    Set db = CurrentDb
    Set TDef = db.TableDefs!商品管理
    
    For Each myFldName In TDef.Fields
        myFldName.Name = myFldName.Name & "★"
    Next myFldName
    
End Sub

● 補足説明 ●

　DAOを使用するには、[ツール(T)]メニューの[参照設定(R)]をクリック
すると表示される[参照設定]ダイアログボックスで、「Microsoft DAO 3.6
Object Library」をチェックします。