Whether rsClass contains 0, 100 or 1,000,000 records, by the time the following code is executed, rsClass.EOF will be True.

strSQLTitle = "SELECT title, classification, code, dateadded FROM tblSnipplets WHERE classification LIKE '" & (rsClass.Fields("classification")) & "%'"

You will need to store the classification value in a variable before this line executes. Which one depends on your needs?

Also, base on your posted code, if rsClass.RecordCount is 0 then you do not want to execute the code for rsTitle, but simply drop out of the sub