Based on that output, it looks like you've run it twice, and left the cursor just after Name (I often do that kind of think myself). Unfortunately debug.print doesn't automatically start on a new line.

The error you are getting means that the data type of the value (in this case 0) and the field (Name) are not compatible. Presumably Name is a text based field, which case you need to put single quotes around the value, ie:
Code:
    strSQL = strSQL & " WHERE Name = '" & Val(txtSearch.Text) & "'"
For an explanation and examples of delimiters to use around values within SQL statements, see the FAQ article How do I use values (numbers, strings, dates) in SQL statements?