Try:
ThisForm.Grid1.RecordSource = "SELECT DISTINCT Nota.cod_nota, Nota.nota_num, Nota.razao_soc," + ;
"Prodnota.cod_prod, Produtos.desc_prod " + ;
"FROM poadesp!nota, poadesp!prodnota, poadesp!forneced, poadesp!produtos " + ;
"WHERE ALLTRIM(ProdNOTA.cod_prod) = ALLTRIM(PRODUTO) " + ;
"AND PRODUTOS.COD_PROD = PRODNOTA.COD_PROD " + ;
"AND Prodnota.cod_nota = Nota.cod_nota " + ;
"INTO CURSOR PESQUISA"
a string constant cannot span multiple lines, so you have to break it up and concatenate multiple single line
strings
HTH
Peter Stephens
Visual Records, Inc.
Lead Programmer for the general purpose record keeping system Visual Records. Written primarily in VFP 6.0 with a little C++.