Autoincrement (1) [DAO]

option explicit

public sub autoincrement_01()

  ' insert a biiiig autoincrement (autonumber)
  ' into the table

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

  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

  set rs = db.openRecordSet("some_table", dbOpentable)

  rs.addNew
  
    rs("theAutonumberField") = 999999999
    rs("aDateColumn"       ) = #10/31/1517#
    rs("aCurrencyColumn"   ) = 68.65
    rs("aTextColumn"       ) = "biiiig autonumber"
    rs("fifthColumn"       ) = "Chanel, no 5"
  
  rs.update

end sub