strSQL = strSQL & "FROM " & strActivePrefix & "TOPICS WHERE TOPIC_ID = '" & iTopicID & "'"
TOPIC_ID is numeric (integer field), lose the apostrophes
strSQL = strSQL & "FROM " & strActivePrefix & "TOPICS WHERE TOPIC_ID = " & iTopicID
that would be my guess <