Ver Mensaje Individual
  #2 (permalink)  
Antiguo 22/10/2007, 04:41
Avatar de culd
culd
 
Fecha de Ingreso: noviembre-2003
Mensajes: 959
Antigüedad: 20 años, 6 meses
Puntos: 19
Re: VB6 y SQL SERVER

Set recor = New ADODB.Recordset
recor.Open "Select nombre_os From OBRAS_SOCIALES", bd_consultorio, adOpenStatic

Set recor = New ADODB.Recordset
recor.Open "Select nombre_paciente, apellido_paciente From PACIENTES", bd_consultorio, adOpenStatic

En ningun momento cerraste el objeto para iniciar el sergundo. No se puede abrir (crear) dos veces el mismo objeto.

osea deja solamente
recor.Open "Select nombre_paciente, apellido_paciente From PACIENTES", bd_consultorio, adOpenStatic

Me imagino que ya abriste la base de datos anteriormente.