Select is similar to the “switch” statement syntax in other languages
Select Case lngLocation Case adUseServer GetLocation = "ServerSide" Case adUseClient GetLocation = "ClientSide" End Select