put a breakpoint on the line:

strFind = "select * from client where surname like '" & trim(txtClientSurname) & "*'"

When your code stops at the breakpoint, press f8 then type the following in the immediate window:

?strFind

Copy the results and post them here.