Dim Transaction.Record(6000)
Then every time you add a new transaction place it in the array.
Transaction(1)=New Record
Transaction(2)=New Record
etc
The array will act as an indexed pointer list to your type list.
Then every time you add a new transaction place it in the array.
Transaction(1)=New Record
Transaction(2)=New Record
etc
The array will act as an indexed pointer list to your type list.