You can make select much shorter by opening all the tables before select and removing path from the select itself.

>this is an example, nothing more: I have put in ; to make it more readable. The select could be longer then this, or shorter.
>

>Select CR_ACT.NXTACT_ST,ALIASES.NAME_ALIAS,ADDRES.STATE,CR_ACT.INITING_AC, ;
>ALLTRIM(CR_ACT.ACTION_NOT),CR_ACT.DTE_NXTACT,CR_ACT.NXT_ACT, ;
>ALLTRIM(CR_ACT.NEXT_ACT),CONTACT.FIRST_NAME,CONTACT.LAST_NAME, ;
>TITLE_.DESCRIP,CONTACT.PHONE,CLIENTNM.CLIENT_ID ;
>from "C:\DATA\WORK\VFP8WORK\CODE\INHOUSEPROJECTS\CLIENTDB\TABLES\CR_ACT", ;
>"C:\DATA\WORK\VFP8WORK\CODE\INHOUSEPROJECTS\CLIENTDB\TABLES\ALIASES", ;
>"C:\DATA\WORK\VFP8WORK\CODE\INHOUSEPROJECTS\CLIENTDB\TABLES\ADDRES", ;
>"C:\DATA\WORK\VFP8WORK\CODE\INHOUSEPROJECTS\CLIENTDB\TABLES\CONTACT", ;
>"C:\DATA\WORK\VFP8WORK\CODE\INHOUSEPROJECTS\CLIENTDB\TABLES\TITLE_", ;
>"C:\DATA\WORK\VFP8WORK\CODE\INHOUSEPROJECTS\CLIENTDB\TABLES\CLIENTNM" ;
>where ( CR_ACT.DTE_NXTACT >= CTOD("01/01/2005") .AND. ;
>CR_ACT.DTE_NXTACT <= CTOD("01/01/2006") ) .AND. ;
>.NOT. "CAN" $ RTRIM(UPPER(CLIENTNM.ACCT_STAT)) .AND. ;
>UPPER(ALIASES.ALIAS_TYPE) = "MAIN" .AND. ;
>CONTACT.CLIENT_ID = CLIENTNM.CLIENT_ID .AND. ;
>CONTACT.CLIENT_ID = ALIASES.CLIENT_ID .AND. ;
>CONTACT.CLIENT_ID = ADDRES.CLIENT_ID .AND. ;
>CONTACT.ADDRES_TYP = ADDRES.ADDRESS_TY .AND. ;
>CONTACT.CLIENT_ID = CR_ACT.CLIENT_ID .AND. ;
>CONTACT.CONTACT_ID = CR_ACT.CONTACT_ID .AND. ;
>CONTACT.TITLE = TITLE_.TITLE_ ;
>ORDER BY 2, 1 INTO CURSOR ctemp
>

>