Data type mismatch in criteria expression

http://www.vbforums.com/showthread.php?755515-Data-Type-Mismatch-in-criteria-expression Please click the above link to understand my error properly. thank you! I get the error located in the above code. Please help me to fix that error.