FindYearOfBirth

'NOTE: A Service Reference to the web service must be added to use this sample code.
Private Sub FindYearOfBirth(ByVal record As InputRecord)
    'Declare the required options.
    'Invoke the web service method.
    Dim proxy As NameAppendSoapClient = New NameAppendSoapClient()
    Dim results As YearOfBirthAppendOutput = proxy.FindYearOfBirth("your-username", "your-password", record, New [Option](-1) {})
    '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.YearOfBirth
        '  Estimated year of birth, where available
        'result.Result
        '  Indicates if the person has been verified to be living at the requested address.
        'result.MatchLevel
        '  Indicates the level of match that was made to the electoral roll. Will be one of the following values:
        '  
        '  * `Forename`
        '  * `Initial`
        '  * `Surname`
        '  * `Premise`
        '  * `None`
    End If
End Sub

Public Sub FindYearOfBirth(forename As String, middlename As String, surname 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=NameAppend&method=FindYearOfBirthSimple" &
    "&username=your-username" &
    "&password=your-password" &
    "&forename=" & forename &
    "&middlename=" & middlename &
    "&surname=" & surname &
    "&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.
      'All the results are available in the first row in the recordset.
      'Results can be extracted from the following fields:
      'YearOfBirth
      '  Estimated year of birth, where available
      'Result
      '  Indicates if the person has been verified to be living at the requested address.
      'MatchLevel
      '  Indicates the level of match that was made to the electoral roll. Will be one of the following values:
      '  
      '  * `Forename`
      '  * `Initial`
      '  * `Surname`
      '  * `Premise`
      '  * `None`
    End If
  End If
End Sub