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**************************

Sería bueno que pusieras exactamente el mensaje de error (completo). Y otra cosa, si tu DLL tiene variables Publicas los métodos no te devuelven nada en ASP ¿porqué? no tengo idea, pero así es.