Example

In the following example, the connection type is retrieved and displayed in a message box.

Sub GetConnectionType ()

 Dim how As String

 how = Session.ConnectionType

 "The current connection type is " & how

End Sub