Your array is big enough to hold 6 records, not 5 . . .
I presume you say that the storage is working because
Code:
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
Code:
public sub updatetables()
If intDepartIndex <> 0 Then ' intdepartindex was
For intIndex = 0 To intDepartIndex ' populated previously
Debug.Print intAirportCodeArray(intIndex)
rsFlight!From_Airport_ID = intAirportCodeArray(intIndex)
rsFlight.Update
Next intIndex
End If
End Sub
yields in the immediate window...