🚀 go-pugleaf

Witam !
Korzystam w moim accessie 2003 / Win 7 z funkcji

Function SystemOnline(ByVal ComputerName As String)
     ' This function returns True if the specified host could be pinged.
     ' HostName can be a computer name or IP address.
     ' The Win32_PingStatus class used in this function requires Windows XP or later.
     ' Standard housekeeping
    Dim colPingResults As Variant
    Dim oPingResult As Variant
    Dim strQuery As String
     ' Define the WMI query
    strQuery = "SELECT * FROM Win32_PingStatus WHERE Address = '" & ComputerName & "'"
     ' Run the WMI query
    Set colPingResults = GetObject("winmgmts://./root/cimv2").ExecQuery(strQuery)
     ' Translate the query results to either True or False
    For Each oPingResult In colPingResults
        If Not IsObject(oPingResult) Then
            SystemOnline = False
        ElseIf oPingResult.StatusCode = 0 Then
            SystemOnline = True
        Else
            SystemOnline = False
        End If
    Next
End Function

w ten sposób sprawdzam pingiem czy mam urządzenia w sieci.
Niestety po około dwóch godzinach wywala mi błąd 2004

Brakuje pamięci aby wykonać operację, zamknij niepotrzebne aplikacje i spróbuj ponowić operację

Pracuje sam access, muszę z menadżera zadań zakończyć accessa i uruchomić od nowa.
Dlazcego ?
Proszę o podpowiedzi i pomoc