É o seguinte já me deram o toque de verificar a propriedade "State" da conexão.
Mas o problema não é exatamente esse.
Utilizei este código:
Public Property Let BD(oNewObject As ADODB.Connection)
If TrataSQL.cnBD.State <> adStateClosed Then
TrataSQL.cnBD = oNewObject
End If
...
Ali no IF onde testo a propriedade da o seguinte erro
"Object variable or With block variable not set"
Como devo proceder?