Private Sub Command11_Click() Dim db As DAO.Database Set db = DBEngine(0).OpenDatabase("c:\增加外部数据库表中的新字段名\db2.mdb" db.Execute ("Alter TABLE 数据 ADD COLUMN gggg TEXT(25)") End Sub