Subscript out of range

Hej

Jeg får denne fejl "Subscript out of range: 'rM_PHOTO_URL'" ved linien "Reply_MemberPhoto_Url = arrReplyData(rM_PHOTO_URL, iForum)". Men det er kun en gang i mellem, at jeg får den.

Hvad skyldes den? Og hvordan rettes den?

.
.
.
'## Forum_SQL
    strSql = "UPDATE " & strActivePrefix & "TOPICS "
    strSql = strSql & " SET T_VIEW_COUNT = (T_VIEW_COUNT + 1) "
    strSql = strSql & " WHERE (TOPIC_ID = " & Topic_ID & ")"

    my_conn.Execute (strSql),,adCmdText + adExecuteNoRecords

    if iReplyCount = "" then  '## Ingen replies found in DB
        ' Nothing
    else
        intI = 0
   
        rM_NAME = 0
        rM_RECEIVE_EMAIL = 1
        rM_AIM = 2
        rM_ICQ = 3
        rM_MSN = 4
        rM_YAHOO = 5
        rM_TITLE = 6
        rMEMBER_ID = 7
        rM_HOMEPAGE = 8
        rM_LEVEL = 9
        rM_POSTS = 10
        rM_COUNTRY = 11
        rREPLY_ID = 12
        rFORUM_ID = 13
        rR_AUTHOR = 14
        rTOPIC_ID = 15
        rR_MESSAGE = 16
        rR_LAST_EDIT = 17
        rR_LAST_EDITBY = 18
        rR_SIG = 19
        rR_STATUS = 20
        rR_DATE = 21
        if CanShowSignature = 1 then
            rM_SIG = 22
        end if
        rM_PHOTO_URL = 23
       
        for iForum = 0 to iReplyCount

            Reply_MemberName = arrReplyData(rM_NAME, iForum)
            Reply_MemberReceiveEmail = arrReplyData(rM_RECEIVE_EMAIL, iForum)
            Reply_MemberAIM = arrReplyData(rM_AIM, iForum)
            Reply_MemberICQ = arrReplyData(rM_ICQ, iForum)
            Reply_MemberMSN = arrReplyData(rM_MSN, iForum)
            Reply_MemberYAHOO = arrReplyData(rM_YAHOO, iForum)
            Reply_MemberTitle = arrReplyData(rM_TITLE, iForum)
            Reply_MemberID = arrReplyData(rMEMBER_ID, iForum)
            Reply_MemberHomepage = arrReplyData(rM_HOMEPAGE, iForum)
            Reply_MemberLevel = arrReplyData(rM_LEVEL, iForum)
            Reply_MemberPosts = arrReplyData(rM_POSTS, iForum)
            Reply_MemberCountry = arrReplyData(rM_COUNTRY, iForum)
            Reply_MemberPhoto_Url = arrReplyData(rM_PHOTO_URL, iForum)
            Reply_ReplyID = arrReplyData(rREPLY_ID, iForum)
            Reply_ForumID = arrReplyData(rFORUM_ID, iForum)
            Reply_Author = arrReplyData(rR_AUTHOR, iForum)
            Reply_TopicID = arrReplyData(rTOPIC_ID, iForum)
            Reply_Content = arrReplyData(rR_MESSAGE, iForum)
            Reply_LastEdit = arrReplyData(rR_LAST_EDIT, iForum)
            Reply_LastEditBy = arrReplyData(rR_LAST_EDITBY, iForum)
            Reply_Sig = arrReplyData(rR_SIG, iForum)
            Reply_Status = arrReplyData(rR_STATUS, iForum)
            Reply_Date = arrReplyData(rR_DATE, iForum)
            if CanShowSignature = 1 then
                Reply_MemberSig = trim(arrReplyData(rM_SIG, iForum))
            end if
.
.
.