To be fully in agreement with SQL SErver sybtax I would cahnge your code as below (added siungle quotes around the string literal):

lcSQL = "select * " + ;
	"from TRPSurvey" + "..exported " + ;
	"where ltrim(rtrim(PermID)) = '" + lcPermID + "'"

IF sqlexec(m.lnHandle,lcSQL,"crsImport") < 0
   AERROR(laError)
   MessageBox(laError[1,2])
ENDIF