cSQL = "SELECT PERSNO FROM PERSON WHERE PERSNO LIKE '" & Quote(Request("SOURCE")) & "%'"

i think so Single quotes missing