Please help me with this one...

If I want to unlock the leden-table it doesn't work.... Can you please tell me what I am doing wrong here?

My code:

SET MULTILOCKS ON
SET REPROCESS TO AUTOMATIC

IF LOCK('leden')
UNLOCK IN leden
ENDIF

IF SEEK(ALLTRIM(ThisForm.txtlidnr.Value))
IF NOT(LOCK('leden'))
LOCK(RECNO(), 'leden')
ELSE
DO WHILE LOCK('leden')
MESSAGEBOX('Iemand anders veranderd op dit moment dit adres.' + CHR (13) + ;
'Klik op [OK], als deze melding verdwijnt is het adres weer vrij.', 64, 'Lid gegevens wijzigen...')
ENDDO
ENDIF
ENDIF