change your code in the second part
[PosactAReader = oledbcmdCheckAdjustment.ExecuteReader()
If AdjustmentReader.Read() Then]
to
[AdjustmentReader = oledbcmdCheckAdjustment.ExecuteReader()
If AdjustmentReader.Read() Then]
Everything you can imagine is real.