'//****************************************************************************
'// A Data Browser object can not be created, it is invoked
'// as a property of a business object.
'// The BusinessPartners object is used to demonstrate the
'// use of a DataBrowser object
'//****************************************************************************
Dim BusinessPartners As SAPbobsCOM.BusinessPartners
'//****************************************************************************
'// A DataBrowser object contains a Recordset object.
'// Because a DataBrowser Object can not be created,
'// a Recordset Object should be created and then assigned
'// (linked) to the Recordset Property of the DataBrowser
'//****************************************************************************
Dim oRecordSet As SAPbobsCOM.Recordset
'// Get a new BusinessPartners object
Set BusinessPartners = oCompany.GetBusinessObject(oBusinessPartners)
'// Get a new Recordset object
Set oRecordSet = oCompany.GetBusinessObject(BoRecordset)
'// Perform the SELECT statement.
'// The query result will be loaded
'// into the Recordset object
oRecordSet.DoQuery ("Select cardcode from ocrd where cardtype = 'C'")
'// Asign (link) the Recordset object
'// to the Browser.Recordset property
BusinessPartners.Browser.Recordset = oRecordSet
'// Access the data
'// Once the Browser points to a row in the
'// result set you can use the properties directly
BusinessPartners.CardCode
BusinessPartners.CardName
'//Get the next Business Partner
If BusinessPartners.Browser.EOF = False Then
BusinessPartners.Browser.MoveNext
End If
'//Get the previous Business Partner
If BusinessPartners.Browser.BoF = False Then
BusinessPartners.Browser.MovePrevious
End If