список добавляемых полей заранее известен?

если поля не известны ,
втупую добавить поля из таблицы2 в таблицу1
можно так:

Private Sub aa()
Dim Db As Database
Set Db = Application.CurrentDb

Dim tdftable1 As TableDef
Dim tdftable2 As TableDef
Dim fld As DAO.Field
Set tdftable1 = Db.TableDefs!таблица1
Set tdftable2 = Db.TableDefs!таблица2
'Debug.Print Application.CurrentDb.TableDefs(7).Name

For Each fld In tdftable2.Fields
On Error Resume Next
tdftable1.Fields.Append tdftable1.CreateField(fld.Name, fld.Type)
On Error GoTo 0
Next fld

End Sub



проверено на Access 2002 ,
кстати если не сделать Set Db = Application.CurrentDb
а использовать
Set tdftable1 = Application.CurrentDb.TableDefs!таблица1
почему - то не работает , хотя вроде бы должно

если названия полей и тип заранее известны то добавлять можно запросом

см. хелп на Alter table