"JET SQL 可以更改欄位型別，沒方法更改欄位名的，除非你連續用幾個JET SQL 先刪掉欄位之後再插入欄位，之後用UPDATE查詢將儲存再臨時表的原欄位資料復原過來。

或，直接用 ADOX 更改 TABLE 的 Columns(欄位名) 物件的 NAME 屬性即可。

Function Test()

ChangeTableFieldName_ADO "表1", "aa", "pic1"

End Function

Function ChangeTableFieldName_ADO(MyTableName As String, MyFieldName As String, strNewName As String)

"3個引數：

"MyTableName 字串，表名

"MyFieldName 字串，原來的欄位名

"strNewName 字串，新的欄位名

"記得先引用 ADOX

Dim MyDB As New ADOX。

Catalog

Dim MyTable As ADOX。Table

MyDB。ActiveConnection = CurrentProject。Connection

Set MyTable = MyDB。

Tables(MyTableName)

MyTable。Columns(MyFieldName)。Name = strNewName

End Function"。