DrillDown

'NOTE: A Service Reference to the web service must be added to use this sample code.
Private Sub DrillDown(ByVal country As String, ByVal id As String)
    'Declare the required options.
    Dim IncludeMR As [Option] = New [Option]()
    IncludeMR.Name = "IncludeMR"
    IncludeMR.Value = "false"
    Dim IncludeNYB As [Option] = New [Option]()
    IncludeNYB.Name = "IncludeNYB"
    IncludeNYB.Value = "false"
    Dim PreferredLanguage As [Option] = New [Option]()
    PreferredLanguage.Name = "PreferredLanguage"
    PreferredLanguage.Value = "en"
    'Invoke the web service method.
    Dim proxy As PredictiveAddressSoapClient = New PredictiveAddressSoapClient()
    Dim results As PredictiveAddressSearchResponse = proxy.DrillDown("your-username", "your-password", country, id, New [Option]() {IncludeMR, IncludeNYB, PreferredLanguage})
    'Check that the call succeeded, and show the error message if there was a problem.
    If (results.Status.Success = false) Then
        MessageBox.Show(("Error: " + results.Status.ErrorMessage))
    Else
        'TODO: Process method results here.
        'Results can be extracted from the following fields:
        'result.Results
        '  The details of the addresses matching the search
        'result.Count
        '  The total number of matches found
        'result.SessionID
        '  A unique identifier for this search session
    End If
End Sub

Public Sub DrillDown(country As String, id As String)
  Dim rs As ADODB.Recordset
  Set rs = New ADODB.Recordset
  rs.Open "https://webservices.data-8.co.uk/recordset.ashx?service=PredictiveAddress&method=DrillDownSimple" &
    "&username=your-username" &
    "&password=your-password" &
    "&country=" & country &
    "&id=" & id
  If rs.MoveFirst Then
    If rs.Fields(0).Name = "Success" And rs.Fields(0).Value = false Then
      MsgBox "Error: " & rs.Fields(1)
    Else
      'TODO: Process method results here.
      'Each result is available in a different row in the recordset.
      'Results can be extracted from the following fields:
      'label
      'value
      'container
      'items
      'All the results are available in the first row in the recordset.
      'Results can be extracted from the following fields:
      'Count
      '  The total number of matches found
      'SessionID
      '  A unique identifier for this search session
    End If
  End If
End Sub