Ola.. Necesitaria que alguien que realmente sepa, me ayudara  exportar Desde Un data grid a excel con vb 6.0 (Por las dudas), sin formato ni nada , De antemano Muchisimas Gracias.
 

  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 .