Code:
For j = 1 To rsCount
It looks to me as if rscount is not initialized. If it is zero when the For-Loop starts, you will skip to the Next.