S Sub Main()

Dim oEnv As New clsD3Environment

Dim oConn1 As clsD3Connection

Dim oConn2 As clsD3Connection

' Environment settings.

oEnv.brCurrency = "$"

oEnv.brDecimal = "."

oEnv.brGrouping = ","

oEnv.brCasing = False

' oConn1 will inherit environment settings.

Set oConn1 = oEnv.brOpenConnection("ODBC", "USproduction")

Set oConn2 = oEnv.brOpenConnection("ODBC", "UKproduction")

' Customizing settings.

oConn2.brCurrency = "L"

oConn2.brDecimal = ","

oConn2.brGrouping = "."

...

' Closing connections.

oEnv.brCloseConnection oConn1

oEnv.brCloseConnection oConn2

Set oEnv = Nothing

End Sub