ASP - ayuda expertos ADODB.Recordset (0x800A0E79)

dentro del ciclo while llamo a dos metodos de mi clase, que es lo malo si quieren revisar el codigo de la dll me avisan por correo... y se los mando.mi idea es llamar varias veces los metodos guardar, pero si saben como enviar por parametro un vector, seria ideal chaoo y gracias**************************************asp**************************** <% i=0 pasada=0 cant=0 Set oListar = Server.CreateObject("Project1.Class1") 'Set rsListar = Server.CreateObject("ADODB.RecordSet") do while cant<10 if pasada=0 then campo=vector(cant,1) id_lesiones=oListar.GuardarLesiones(cstr(descrip_nat),cstr(rut_nat),cstr(folio_nat)) 'AQUI ES LA LINEA 41 y manda el error oListar.GuardarDetalleLesiones cstr(id_lesiones),cstr(campo) pasada=1 else if vector(cant,1)<>"" then campo=vector(cant,1) oListar.GuardarDetalleLesiones cstr(id_lesiones),cstr(campo) pasada=1 else pasada=1 end if end if cant=cant 1 loop Set oListar = Nothing %> ************************************fin asp**************************