I don't know about interbase but I suspect you need to surround the text-expression with apostrophes:
"AND p.DISPLAY_NAME LIKE '%" & Worksheets("Page1").Range("H9").Value & "%'"
Remove the unnecessary spaces as well:
"AND p.DISPLAY_NAME LIKE '%" & Worksheets("Page1").Range("H9").Value & "%'"