Program error Property FIELDS is not found

Select * from Proyect ;
where Type_P = m.Type_P ;
and Number = m.Number ;
Into cursor ResultSet
Scatter Name thisform.fields <---- error in here