Private Sub TestList_Click()

Dim oList As clsD3SelectList

OpenConnection ' Subroutine to establish connection

Set oList = oConn.brOpenSelectList("select products")

oList.brReadnext

MsgBox "This list was produced by the command " & oList.brName

MsgBox "The item-id of the first element is " & oList.brItemId

oConn.brCloseSelectList oList

CloseConnection ' Subroutine to close connection

End Sub