Solucionar error bastante raro en VB6

[lokoman]

Hola!!
por que no tratas algo asi:

Código vb:

Call CerrarRS(DE.rsPacientes)
 
Set de=new dataenvironment ' A VER SI FUNCIONA
 
With DE.rsPacientes
    .Open "Select * from Pacientes"
...