Your array is big enough to hold 6 records, not 5 . . .
I presume you say that the storage is working because
Label80.Caption = intAirportCodeArray(intRecordIndex)
displays the right data. Is that right?
I further presume that you believe your array is not working properly because when you examine the database after public sub updatetables() runs, and the data are not there. Is this correct?
If this is so, I would like to know what
public sub updatetables()
If intDepartIndex <> 0 Then ' intdepartindex was
For intIndex = 0 To intDepartIndex ' populated previously
rsFlight!From_Airport_ID = intAirportCodeArray(intIndex)
yields in the immediate window...