Subscript out of range ERROR

I'm hoping someone can help.  I can't figure out what's causing this error when I display the result of this code.

Microsoft VBScript runtime error '800a0009'

Subscript out of range: '7'

/featuredfirms.asp, line 126

I'm trying to list results from a table where I have lookup codes that correspond from another table.  Here's my code...

<%  
 strfirmpracticeareas=objRSfeature("firmPracticeareas")
 dim practiceArr, StrSql, objRSpracticearea
 practiceArr = split(strfirmpracticeareas,",")
 Set objRSpracticearea = Server.CreateObject("ADODB.RecordSet")
 StrSql = "Select practicename from practice Where practiceid = " & practiceArr(x)
 
 for x = LBound(practiceArr) to UBound(practiceArr)
  StrSql = StrSql & " OR practiceid = " & practiceArr(x)
 next
  
  
 objRSpracticearea.Open StrSql, objConn, 3, 3
 
 Do While Not objRSpracticearea.EOF
  Response.Write "<b>" & objRSpracticearea("practicename") & "</b>, &nbsp;"
 objRSpracticearea.MoveNext
 Loop
         
    objRSpracticearea.close
    Set objRSpracticearea=Nothing
  
   %>

Thanks, in advance