====== Select...End Select ======
Select is similar to the "switch" statement syntax in other languages
<code vb>
Select Case lngLocation
    Case adUseServer
        GetLocation = "ServerSide"
    Case adUseClient
        GetLocation = "ClientSide"
End Select
</code>