Duplicar registros filtrados con ADO

[zhidow]

  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 .

[zhidow]

Gracias, Pero sha enconte la forma, Creando un vector y un Reg definido por el usuario

TYPE T_DB
CODIGO () AS STRING
PRODUCTO  () AS STRING
PAGINA () AS INTEGER
....
END TYPE

PUBLIC BASE() AS T_DB

Y ANTES DE EMPEZAR A CONTAR, CUANDO SE CUANTOS REGISTROS TENGO DESPUES DE FILTRARLOS , REDIMENSIONO EL VECTOR

REDIM BASE (0 TO DB.RECORDSET.RECORDCOUNT)

------------
DESPUES DE TANTO ESO ERA TODO