select_record [DAO]

' Might be run after insert_record.bas
option explicit

public sub select_record()

  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

  dim sqlText as string

  sqlText =                     _
    "select "                 & _
    "  theAutonumberField, "  & _
    "  aDateColumn, "         & _
    "  aCurrencyColumn, "     & _
    "  aTextColumn, "         & _
    "  fifthColumn "          & _
    "from "                   & _
    "  some_table"

' msgBox sqlText

  set rs = db.openRecordSet(sqlText, dbOpenDynaset)
   
  do until rs.eof
     
     msgBox rs("theAutonumberField") & vbCrLf & _
            rs("aDateColumn"       ) & vbCrLf & _
            rs("aCurrencyColumn"   ) & vbCrLf & _
            rs("aTextColumn"       ) & vbCrLf & _
            rs("fifthColumn"       )
     
     rs.moveNext
  loop

  rs.close

end sub