[VB6] Problème Gestion d'erreur

Bonjour,
Le but du script est de récupérer les comptes administrateurs des machines d'un domaine dans un fichier texte.
J'ai récupéré la majeur partie du code source sur le site de microsoft, cependant il ne gère pas deux problèmes concernant la récupération à savoir "Erreur 70: Accès refusé" et "Erreur -2147024843: Chemin Réseau introuvable".

J'ai tenté de gérer l'erreur de cette façon, mais lors de l'execution le "On Error Go To Erreur" est ignoré. Lors de l'execution manuelle, si je reviens sur la condition "If Err.Number <> 70 And Err.Number <> -2147024843 Then", le bloc est bien ignoré.

J'utilise VB6 SP6

Serait il possible d'avoir de l'aide sur ce problème ?
Merci d'avance.

Private Sub recuperation_Click()


Open "C:\sauvegarde.txt" For Append As #1

Const ADS_SCOPE_SUBTREE = 2

Set objConnection = CreateObject("ADODB.Connection")
Set objCommand = CreateObject("ADODB.Command")
objConnection.Provider = "ADsDSOObject"
objConnection.Open "Active Directory Provider"

Set objCommand.ActiveConnection = objConnection
objCommand.CommandText = _
    "Select Name, Location from 'LDAP://DC=mondomaine,DC=com' " _
        & "Where objectClass='computer'"
objCommand.Properties("Page Size") = 1000
objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE
Set objRecordSet = objCommand.Execute
objRecordSet.MoveFirst

Do Until objRecordSet.EOF
 
    strComputer = objRecordSet.Fields("Name").Value
    strGroup = "Administrateurs"
    resultat = resultat & objRecordSet.Fields("Name").Value & ";"
Erreur:
    Err.Clear
    If Err.Number <> 70 And Err.Number <> -2147024843 Then
        On Error GoTo Erreur
        Set objGroup = GetObject("WinNT://" & strComputer & "/" & strGroup & ",group")
        
        For Each objMember In objGroup.Members

            resultat = resultat & objMember.Name & ";"

        Next
    End If

    Print #1, resultat
    
    resultat = ""
    objRecordSet.MoveNext

Loop



resultat.Caption = "Récupération Terminée"


Close

End Sub