indekset er uden for området

Hej,
Jeg sidder roder med at hente noget fra en database.

værdierne skal ligges ind i et array, som jeg skal bruge senere.
Når jeg prøver dette får jeg en Kørselsfejl"9": Indekset er uden for området.

Koden er som følger:

Dim arr() As String

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

help?