Solucionar error bastante raro en VB6

[fesero]

Iniciado por Angiz

Código:

Public Sub CerrarRS(RS As Recordset)
    If RS.State = adStateOpen Then
        RS.Close
    End If
End Sub

Código:

Call CerrarRS(DE.rsPacientes)
With DE.rsPacientes
    .Open "Select * from Pacientes"
...

A mi parecer estas usando un recorset distinto al que cerrras..