anziche il TypeName, non c'è il TypeOf e specifichi il tipo di oggetto?

if TypeOf(obj) Is ADODB.Connection then....