L'unica differenza che trovo tra le funzioni è che nella prima fai:
GetServers = adoRS
e nella seconda:
Set GetOnLineUsers = adoRS