mcm wrote: Do Until .EOF .MoveFirst Call Save(iOrderNo, strCode, strDesc, iQuantity, iFullPrice) .MoveNext Loop This code:
Moves to the first record;
Saves the record;
Moves to the next record;
Goes back to the start of the loop;
Tries to move to the first record;
Throws an error because you have a forward-only recordset;
Change the loop to:
Do Until .Eof
' TODO: Get these values from the recordset!
Call Save(iOrderNo, strCode, strDesc, iQuantity, iFullPrice)
.MoveNext
Loop
"These people looked deep within my soul and assigned me a number based on the order in which I joined." - Homer