>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 >Most likely, you confuse the program with 'lcNotes' and 'm.lcNotes'. Why can't you use one of them only?