Sub Main()

Dim oEnv As New clsD3Environment

Dim oConn As clsD3Connection

Dim oTCLCmd As clsD3TclCommand

Dim iLines As Integer

Dim I As Integer

Set oConn = oEnv.brOpenConnection("ODBC", "Production") 

Set oTCLCmd = oConn.brOpenTclCommand ("LIST Customers SAMPLING 5")

oTCLCmd.brExecute

iLines = oTCLCmd.brCapturing.brDCount(D3AMChr)

For I = 1 To iLines

Debug.Print oTCLCmd.brCapturing.brExtractStr(I)

Next I

oConn.brCloseTclCommand oTCLCmd

oEnv.brCloseConnection oConn

Set oEnv = Nothing

End Sub