I think I found a bug in the BizObj.Clone method. If you don't pass in a 0 to clone all records then the method errors out with Data Type Error on the line:

IF lnRecNo != 0 and lnRecNo <= lnRecCnt

The error occurs because lnRecCnt is never populated with the BizObj's Reccount(). It is only populated from the case statement where "tiRecord = 0"

I added the following before the Do Case to correct the error:

lnRecCnt = RECCOUNT()