No carga los datos en un grid

En otros formularios funciona perfectamente, en uno en especial no llena los datos en el grid, los encabezados si pero no entra al grid

thisform.P1.Consultas.txtA.BackColor=RGB(255,255,255)
vA=ALLTRIM(This.Value)
Sele Cotiza
thisform.Grid1.RecordSourceType= 2
thisform.Grid1.RecordSource='Cotiza'
A="SELECT Registro,N_cotiza,Nc,Descrip,Fecha,Proyecto,U_Rev,F_Ur,Imp_i,Imp_Ur,Imagen,Obs,Usu "
B="FROM Cotiza WHERE N_cotiza>=vDe .and. N_Cotiza <=vA INTO CURSOR Cu_Cotiza"
C=A+B
&C
GO top
IF EOF()
    MESSAGEBOX("No Existe","El Rango")
    thisform.Grid1.Visible=.f.
    thisform.Continuar.Setfocus
ELSE
    SELECT Cu_Cotiza
    INDEX ON N_Cotiza tag Cot
    thisform.Grid1.enabled=.t.
    thisform.Grid1.RecordSourceType= 2
    thisform.Grid1.RecordSource="Cu_Cotiza"
    thisform.GridA() -> (Caracterizticas del grid, si lo hace)
    thisform.Grid1.SetFocus

   (Se va a otro lado menos al Grid1, en todos los objetos si lo hace)
ENDIF