VBA to make numeric value short text

Good morning everyone,

I'm getting Data type mismatch in criteria expression on a VBA that I'm using, I'm not the author, it was working fine until upgrade from office 2013 to 365.

The code:

Please Login or Register  to view this content.

Using debug.pring I know that second sql string results in this:

Please Login or Register  to view this content.

If my understanding is correct the error comes from 1904 value that is numeric in sql while Mtbl_02_Recharge_FixedAmounts.[YYMM Last month of Fixed Amount] is stored as short text.
I tried to modify like this:

Please Login or Register  to view this content.

But it makes no difference. I'm not so good with VBA in access, I don't think I can solve it on my own, please help!

Hi Marcinrd,

Since RRMonth is already declared as string, but if the source data is numeric then the problem could be at the expression : RRMonth = rst.Fields("Process Month (YYMM)").
My guess is the value stored in Process Month (YYMM) field may be a numeric value. You may try to use function CStr() to convert numeric data type to string data type.

Please try to change RRMonth = rst.Fields("Process Month (YYMM)") to RRMonth = CStr(rst.Fields("Process Month (YYMM)")).
Another way is you may try to run in debug mode, so it will show the line that caused an error.

Thank you chocolate_kitten! It put me on right track
CStr(rst.Fields("Process Month (YYMM)")) alone didn't work but combined with my first attempt of adding ' in sql those two methods together finally gave the right result!

congratulations!