Ola necesitaria saber como Duplicar registros filtrados Con ADo. Intente usando un Vector dinamico

Dim i as Integer
with db.recordset
if not .bof then .movefirst
For i = 1 to .recordcount (Cantidad de Registros Filtrados)
   Codigo(i) = !Codigo
   Producto(i) = !Producto
     .movenext
     next i
end with

Bueno es algo asi lo que hice pero el problema es que me dice ,  "el sub Indice esta fuera del intervalo"
Agradeceria mucho su ayuda .