I have the following bit of code

There are 13 records in the table i'm reading into the recordset from.

I keep getting an OVERFLOW error that has to do with the rs.Fields(1)
line below...
If i remove that line.. loop works fine of course

The array has 14 cells so there's no problem there.

i = 1
While Not rs.EOF
BucketArray(i) = rs.Fields(1)
i = i + 1
rs.MoveNext
Wend

Any ideas?