Ma per esempio nella stessa pagina ho una funzione che fa praticamente la stessa cosa.
codice:
	Public Function GetOnLineUsers()
		Dim oADO, adoRS
		Dim sSQL, retValue
		
		Set oAdo = New CAdo
		
		oAdo.adoConnectString = Application("CONNDB")
		
		sSQL = "SELECT OU.* FROM SelectUserOnline AS OU"
		Set gbl_adoConnection = oAdo.adoOpenConnection()
		Set adoRS = oAdo.adoOpenSQLSnapShot(gbl_adoConnection, sSQL )
				
		Set GetOnLineUsers = adoRS 
		
		Set adoRS = Nothing
		
	End Function
E che viene richiamata con:

Set adoRSOU = Me.GetOnLineUsers()
If Not ( adoRSOU.Eof And adoRSOU.Bof ) then
Praticamente è uguale. Cambiano solo le variabili e la funzione.
Però con questa funziona...... e non capisco come mai.
Vorrei capire dove sbaglio