Как с помощью запроса на SQL или VBA поменять название полей в таблице?

<font color="blue">Dim</font> db <font color="blue">As</font> DAO.Database
    <font color="blue">Dim</font> fld <font color="blue">As</font> DAO.Field
    
    <font color="blue">Set</font> db = CurrentDb()
    <font color="blue">Set</font> fld = db.TableDefs(<font color="teal">"tblCustomers"</font>).Fields(<font color="teal">"LastName"</font>)
    
    fld.<font color="blue">Name</font> = <font color="teal">"CustomerName"</font>
    
    <font color="blue">Set</font> db = <font color="blue">Nothing</font>