Visual Basic - Problema al recorrer registro muy grande

Hola peña. Necesito recorrer una tabla con 15000 registros aproximadamente. Para esto me creo un odbc (la tabla es de foxpro, dbf), hago un select con un command y lo abro en un recordset llamado reg_art_dat. El caso es que cuando abro el registro mediante el codigo

cmd.ActiveConnection = c200X
cmd.CommandText = "SELECT * from art_dat order by f_art_cod"
reg_art_dat.Open cmd
reg_art_dat.MoveFirst

y añado reg_art_dat a la inspeccion, las propiedades PageCount y RecordCount de dicho objeto adquieren el valor
"El proveedor de datos u otro servicio devolvió un estado E_FAIL."

y cuando recorro el registro secuencialmente mediante el codigo

Encontrado = 0
Do While Not reg_art_dat.EOF And Encontrado = 0 'Por cada articulo
codigo = Mid(reg_art_dat.Fields("f_art_cod"), 2, 6)
If reg_articulos_homologados.Fields("ReferenciaCatalogo") = codigo Then
Encontrado = 1
End If
reg_art_dat.MoveNext
Loop

en la posicion 1163 se detiene la ejecucion dando el error
"El proveedor de datos u otro servicio devolvió un estado E_FAIL."
que es el valor que adquirian las propiedades del objeto recordset.

Alguien que me pueda echar una mano por favor lo agradeceria mucho.

Saludos.