Your string shouldn't have any quotes around it, they are included by default in the variable.
It should be Num = 4.
So your DLookup should be
DLookup("Mth","tblMonths","Num = 4")
The double quotes will cause a issue.
You can type that expression directly into the Immediate window to prove a...