Basta testare le proprietà dell'oggetto ADODB.Connection che hai impostato. Esempio

codice:
If cn.State = adStateClose Then
   Rem Riapro la connessione
   OpenConnection cn    ' routine tua che apre la connessione
End If
Ciao