Public Function Search(ByVal WhereStatements As WhereStatementCollection, ByVal useOrNotAnd As Boolean, ByVal tokens As Dictionary(Of String, String)) As Integer

'-- Establish Locals

Dim lnReturn As Integer = 0

Dim loInfo As New QueryInformation()



'-- Build the query information

loInfo.QueryType = QueryTypeOptions.SELECT_TOP

loInfo.TopRowCount = Me._BrowseDialog.MaximumReturnedRecords



If String.IsNullOrEmpty(Me._BrowseDialog.OverrideSearchTableName) Then

loInfo.TableName = Me._BusinessObject.TableName

Else

loInfo.TableName = Me._BrowseDialog.OverrideSearchTableName

End If



If String.IsNullOrEmpty(Me._BrowseDialog.OverrideSearchTableSchema) Then

loInfo.TableSchema = Me._BusinessObject.TableSchema

Else

loInfo.TableSchema = Me._BrowseDialog.OverrideSearchTableSchema

End If