You need to open the recordset and make it editable.
its this line:
Code:
Open "SELECT * FROM TBLPacks WHERE PackRef = " & iPackID, cn, adOpenStatic
Needs to be:
Open "SELECT * FROM TBLPacks WHERE PackRef = " & iPackID, cn, ADODB.CursorTypeEnum.adOpenDynamic, ADODB.LockTypeEnum.adLockOptimistic