Data type mismatch in criteria expression.

Question

I want to insert a column a runtime on basis of the if condition which is defined but I got an exception that data mismatch. Please help 

thanks in advance