drakong

A mi se me ocurre hacerlo con un do while, es decir, algo así i=1 Do While i<= 100 i_formato=Format(i,"00000") sql= "Select * From Tabla Where Proveedor Like ' " & i_formato & " ' " Set rstRegistros= New Adodb.Recordset rstRegistros.Open sql,...