Error DBCMD/2001

[PITERGALDIANO]

Estou com o seguinte problema,

quando vou alterar algo na minha base de dados ocorre o seguinte erro:

Error DBCMD/2001 Workarea not in use: BLOQREG

Abro o banco de dados da seguinte forma:
Use CadCli Alias cadcli Shared New
Set Index To CadCli
Set Order To 2
cadcli->(DbGoTop())

e uso a função BLOQREG() para bloquear registros:

Function bloqreg()

While !Rlock()
MsgBox3D("Registro travado por outro usuário, aguarde...")
End While

Return .T.

O que está errado?

Obs.: abro outros .dbf no mesmo sistema e bloqueio registros da mesma forma acima e não tenho problemas, somente no cadastro de clientes que está ocorrendo.