codice:
Rs.State = adStateOpen

Cn.State = adStateOpen
prova a testarli in questo modo.