Cursor

Buenos días, estoy realizando un mantenimiento con botones nuevo, editar, grabar, etc. En una de las cajas de texto (txtCod) tengo que ingresar el código de documento (01=factura, 02=boleta) y en una etiqueta me tiene que salir la descripción del doc. Si ingreso 01 en la etiqueta me tiene que salir factura. Cuando ejecuto el form. He ingreso el código en txtCod me sale normal la descripción del doc.en la etiqueta grabo los datos normal pero para ingresar un nuevo registro me sale este error: "No puede actualizar el cursor busca ya que es de sólo lectura" en el método valid de txtNro jalo la consulta thisform.buscadoc
¿Cómo puedo hacer para que no me salga dicho error o hay alguna sugerencia?.
El método buscadoc tiene la siguiente consulta:
select *;
from comprobantes WHERE comprobantes.nro=thisform.txtNro.Value;
order BY comprobantes.nro INTO CURSOR busca
if _tally=0
messagebox("No se encontraron registros ...", 48, "Atención")
thisform.txtNro.Value=""
thisform.lblComprobante.Caption=""
retu .f.
ELSE
thisform.lblComprobante.Caption=busca.descripcion
ENDIF