Fields de un Recordset (ADO desde VB6)

Amigos:

Tengo el siguiente código:

Public Function countVendedores() As Byte
Dim flag As Boolean
Dim i As Byte
Dim rec As New ADODB.Recordset

While i <= 4 And flag = False
If rec.Fields(i) = 0 Then <<= PROBLEMA
flag = True
Else
i = i + 1
End If
Wend

If flag Then countVendedores = i + 1

Lo que quiero es ir recorriendo los distintos campos que trae el
Recordset y verificar en cuál hay un 0. ¿Por qué no funciona
rec.Fields(i) si rec.Fields(0) sí funciona? Rec.Fields(i) devuelve el
error:
"No se encontró el elemento en la coleción que corresponde con el
ordinal pedido"

Desde ya muchas gracias por su ayuda.


Saludos!

Mauricio López
Maldonado - Uruguay