Looks like you specified the first row from rstCategories to be skipped
If intCountComma <> 0 Then
'ya-di-ya-di
else
intCountComma = intCountComma + 1
End If
rstCategories.MoveNext
(in other words, the ya-di-ya-di is not done for the first row)