I'd like for you to try it and tell me what happens. I do just that and when
I append it complains that there are no fields in the table and Append
fails. Then I modified the codes by creating as many fields for the new
table as are in the source table. Again the Append method fails - this time
complaining that there are too many fields.

Sub tester2()
   Dim db As Database, tbl As TableDef
   Const S$ = "C:\Working\Access\Santarosa\Santarosa.mdb"
   Const t$ = "Santarosa Zips 5Digit"

   Set db = OpenDatabase("C:\Working\Access\All County\Library.mda")
   Set tbl = db.CreateTableDef(t)

   'This block was inserted after the first error mentioned above
   With tbl.Fields
       .Append tbl.CreateField("First_Name", dbText)
       .Append tbl.CreateField("Last_Name", dbText)
       .Append tbl.CreateField("Address_1", dbText)
       .Append tbl.CreateField("City", dbText)
       .Append tbl.CreateField("State", dbText)
       .Append tbl.CreateField("Postal_Code", dbText)
   End With

   tbl.Connect = "DATABASE=" & S & ";"
   tbl.SourceTableName = t
   db.TableDefs.Append tbl            'Each time it would fail at this line

End Sub