คำสั่งตรงๆ ผมไม่เคยรู้จักนะครับ
แต่คิดว่า การใช้ลูปวนตรวจก็ไม่น่าจะช้าเท่าไหร่

ADO
dim rs as new adodb.recordset
rs.open "table1", currentproject.connection, 1
for i = 0 to rs.fields.count-1
msgbox rs(i).name
next



DAO
Dim db As DAO.Database
Dim tb As DAO.TableDef
Dim fld As DAO.Field
Set db = CurrentDb
Set tb = db.TableDefs("Table1")
For Each fld In tb.Fields
MsgBox fld.Name
Next

ได้มาแล้วครับ รูปแบบคำสั่งคือ

CurrentDb.TableDefs("TableName").Fields("FieldName").Name = "FieldName"

โดยจะให้คำตอบออกมาในรูปแบบ True หรือ False เวลาใช้งานอาจต้องใช้ร่วมกับคำสั่ง If