Originariamente inviato da Petra

codice:
Public Function Disconnetti()
rs.Close ' Questa è la linea che il Debug mi segnala 
Set rs = Nothing
cn.Close
Set cn = Nothing
End Function
codice:
Public Function Disconnetti()
if not(rs is nothing) then
   rs.Close ' Questa è la linea che il Debug mi segnala 
   Set rs = Nothing
end if
if cn.state <> adstateclose then
   cn.Close
end if
Set cn = Nothing
End Function