Anzi più precisamente l'errore comincia da quì

Errore di run-time di Microsoft VBScript (0x800A01B6)
Proprietà o metodo non supportati dall'oggetto: 'ActiveConnection'