Adding a column [DAO]

' Run create_table.bas first, afterwards, you might want to run add_primary_key.bas

option explicit

sub add_column()

  dim access as Access.Application
  dim db     as Dao.Database

  dim mdb_file_name as string 
  mdb_file_name = "c:\\temp\\dao_test.mdb"
  set access = new Access.Application

  access.OpenCurrentDatabase(mdb_file_name)
  set db = access.CurrentDb

  dim table_def   as dao.tableDef
  dim table_field as dao.Field

  set table_def = db.tableDefs("some_table")

  set table_field = table_def.createField("fifthColumn", dbText, 20)
  table_def.fields.append table_field

  set table_field = nothing
  set table_def   = nothing
  set access      = nothing

end sub