José Maria,

Tente verificar qual erro está retornando, logo após o CursorFill

*** Buscar dados
lFilled = Thisform.oCA.CursorFill(.T.)
IF !lFilled
  AERROR(aMensErro)
  MESSAGEBOX(STR(aMensErro[1])+CHR(13)+aMensErro[2])
ENDIF