beh intanto non sapevo che che fosse una proprietà "non in ascolto" e quindi già mi hai dato una mano!!
cmq nel frattempo ho risolto con una sub che ad intervalli di tempo fà una "select top 1 ..." e se l'operazione non va a buon fine chiudo e riapro la connessione, ripetendo la query nel caso in cui la connessione è stata aperta senza errori....
magari non è proprio lineare ma funziona! (qui c'è il codice)
Public Sub ConnectionStateControl()
On Error Resume Next
Err.Clear
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
rs.LockType = adLockOptimistic
rs.Open "SELECT TOP 1 * FROM anagrafica1", m_conn, adOpenDynamic
If Err.Number <> 0 Then
m_conn.Close
Err.Clear
m_conn.ConnectionString = ConnectionString
m_conn.ConnectionTimeout = 10
m_conn.Open
If Err.Number = 0 Then
rs.Close
Err.Clear
rs.Open "SELECT TOP 1 * FROM anagrafica1", m_conn, adOpenDynamic
If Err.Number = 0 Then
'tutto ok!
rs.Close
Else
'errore
End If
Else
'errore
End If
Else
'tutto ok!
rs.Close
End If
On Error GoTo 0
End Sub
Già che ci sono.... Nelle varie prove che ho fatto ho provato a sospendere (mettere in pausa anzichè in stop) il server sql però la query non restituisce alcun errore.... 
Sapete dirmi come mai?!?
se qualcuno avesse dei consigli siamo qua per imparare!!!!
e grazie!! 