>OPEN DATABASE testdbase > >SELECT mynotes >lcNotes = "" >SET ORDER TO TAG tComPrt >SEEK crsbom.partnum >SCAN WHILE mynotes.partnum = crsbom.partnum > IF EMPTY(mynotes.notes) > LOOP > ENDIF > lcNotes = m.lcNotes + ALLTRIM(mynotes.notes)+ space(1) >ENDSCAN >IF NOT EMPTY(m.lcNotes) > REPLACE Notes WITH crsbom.notes + m.lcNotes IN crsbom >ENDIF >Please see the minor adjustments I made and apply them. Are you sitting on the right record in crsBom?