Cita:
Iniciado por ramirezmario7 
Coloca esto
Set rs = New ADODB.Recordset
If rs.state =1 then
rs.close
End if
rs.open "La conslta",con
Perdona, no me gusta corregir, pero sí aclarar las cosas.
Si pones
Set rs = New ADODB.Recordset
rs.State siempre será = 0 (cerrado)
y es lógico, pues estás asiganando una nueva referencia de objeto a la variable 'rs'.
