Visual Basic - Ayudaaa expertos ADODB.Recordset (0x800A0E79)

Tipo de error:
ADODB.Recordset (0x800A0E79)
La operación no está permitida si el objeto está abierto.
/prevencion/Nat_lesiones.asp, line 41

Te explico, si te puedes dar cuenta el ciclo while de asp llama a 2 metodos cuyo codigo esta al final de este correo, este error es mi trauma si algo puedes aportar bien por mi ja. chao

este codigo esta es de asp
**************************************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**************************

y este es el procedimiento en visual basic

***************************************visual basic********************
Public Function GuardarLesiones(var2 As String, var3 As String, var4 As String) As String

Dim oConn As ADODB.Connection ' Creamos un o

Falta parte del código, además, la que falta es donde se produce el error, así que no se si lo que te comento es correcto.
En pricipio parece, por el tipo de error, que estás intentando abrir dos veces el mismo Recordset o la misma conexion, cosa que no está permitida.