Private Sub Command0_Click()
Dim db As DAO.Database
Dim tdf As DAO.TableDef
Set db = DBEngine(0).OpenDatabase("c:\更改外部数据库\db2.mdb")

Set tdf = db.TableDefs("数据表")
Debug.Print tdf.Fields("商品名称").Name

tdf.Fields("²商品名称").Name = "商品"
MsgBox "db2.mdb数据表中的商品名称已改为商品"

End Sub