Sub Main()

Dim oEnv As New clsD3Environment

Dim oConn As clsD3Connection

Set oConn = oEnv.brOpenConnection("ODBC", "production”)

MsgBox "System Identification: " & oConn.brSystem(100)

oEnv.brCloseConnection oConn

Set oEnv = Nothing

End Sub