Sub Main()

Dim oEnv As New clsD3Environment

Dim oConn As clsD3Connection

Dim oList As clsD3SelectList

Dim sItemId As String

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

Set oList = oConn.brOpenSelectList("SELECT Customers")

Do While oList.brReadnext(sItemId)

Debug.Print sItemId

Loop

oConn.brCloseSelectList oList

oEnv.brCloseConnection oConn

Set oEnv = Nothing

End Sub