indsættelse fra sql via nested loops

Jeg henter data fra en db via sql. Det er en række navne (som jeg egentlig bare ønsker at tælle, men det virker ikke med den version af sql jeg bruger, se:http://www.eksperten.dk/spm/664750)
Problemet er:
først kører jeg en sql, hvor jeg gemmer nogle referencer jeg skal bruge senere i et array:

Dim arr(100) As String


i = 0
Do While Not rs.EOF
'MsgBox (rs("session"))
arr(i) = rs("session")
rs.movenext
i = i + 1
Loop

Ud fra disse referencer skal jeg så hente data fra en anden db:

x = 1
Do While x <= i
On Error Resume Next
'MsgBox (x)
Set rs2 = cn2.Execute("Select count(*) as antal from " & ind & " where EISSTATE = 1 ")

Set ws = Sheets("autoArk")
    ws.Activate
    y = 1
    Do While Not rs2.EOF
        ws.Cells(y, x).Value = rs2("antal")
        rs2.movenext
        y = y + 1
       
    Loop
   
    'MsgBox (arr(x))
x = x + 1
Loop

Her går det galt; mit program går i uendelig løkke. Jeg kan ikke forstå hvorfor da jeg ved at den kun skal lave ca. 65 sql-kald. Dog er der muligvis mange poster i hver tabel, men der kommer intet output til cellerne i excel.

Er der nogen der kan hjælpe? en total omskrivning er selvfølgelig altid muligt hvis jeg har fucket fuldstændig op i det.