Maybe you just archived too much. Not possible to say what happened with certainty.
Anyway, that should check for records being returned, as the Snitz code does. For example (simple one, really):
set ReqTopic = my_conn.execute(strSQL)
if not ReqTopic.EOF Then
FORUMID=ReqTopic("FORUM_ID")
end if
ReqTopic.Close