Replace the lines
strSql = "SELECT TOP " & intLastSeen & " member_id, m_name, m_lastheredate FROM " & strMemberTablePrefix & "MEMBERS ORDER BY M_LASTHEREDATE DESC"
rs.Open strSql, my_Conn
with
strSql = TopSQL("SELECT member_id, m_name, m_lastheredate FROM " & strMemberTablePrefix & "MEMBERS ORDER BY M_LASTHEREDATE DESC",intLastSeen)
rs.Open strSql, my_Conn