FindTelephoneNumber

'NOTE: A Service Reference to the web service must be added to use this sample code.
Private Sub FindTelephoneNumber(ByVal record As BusinessInputRecord)
    'Declare the required options.
    Dim XD As [Option] = New [Option]()
    XD.Name = "XD"
    XD.Value = "false"
    Dim DQR As [Option] = New [Option]()
    DQR.Name = "DQR"
    DQR.Value = "false"
    'Invoke the web service method.
    Dim proxy As TeleAppendBusinessSoapClient = New TeleAppendBusinessSoapClient()
    Dim results As TeleAppendBusinessOutput = proxy.FindTelephoneNumber("your-username", "your-password", record, New [Option]() {XD, DQR})
    '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
        '  Contains a list of matches found for the requested record on the telephone directory. Each match contains the following fields:
        '  
        '  * `Name` - the name that was matched to
        '  * `Address` - the address that was matched to
        '  * `TelephoneNumber` - the telephone number to call
        '  * `LineType` - the type of telephone line: `Residential`, `Fax`, `Doctor` or`Telephone`.
    End If
End Sub

Public Sub FindTelephoneNumber(company As String, address As String)
  Dim rs As ADODB.Recordset
  Set rs = New ADODB.Recordset
  rs.Open "https://webservices.data-8.co.uk/recordset.ashx?service=TeleAppendBusiness&method=FindTelephoneNumberSimple" &
    "&username=your-username" &
    "&password=your-password" &
    "&company=" & company &
    "&address=" & address
  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:
      'LineType
      'TelephoneNumber
      'Name_Title
      'Name_Forename
      'Name_MiddleName
      'Name_Surname
    End If
  End If
End Sub