Report Offensive Message

I'm getting this same problem in one database I'm implementing this solution in... but I didn't get it the first time I did it in a more complicated database (which works beautifully!). I cannot for the life of me find the problem. I not really a VBA programmer and will be taking a class soon. Any other hints on this error message?