Sub Main()

Dim oEnv As New clsD3Environment

Dim oConn As clsD3Connection

Dim oFile As clsD3File

Dim oList As clsD3SelectList

Dim sItemId As String

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

Set oFile = oConn.brOpenFile("sqldemo,customers,")

Set oList = oFile.brSelect

oList.brReadnext

Do Until oList.brEOL

Debug.Print oList.brItemId

oList.brReadnext

Loop

oConn.brCloseFile oFile

oEnv.brCloseConnection oConn

Set oEnv = Nothing

End Sub