AutoCompleteTowns

'NOTE: A Service Reference to the web service must be added to use this sample code.
Private Sub AutoCompleteTowns(ByVal licence As LocationLicence, ByVal townName As String)
    'Declare the required options.
    Dim SearchAllLocalities As [Option] = New [Option]()
    SearchAllLocalities.Name = "SearchAllLocalities"
    SearchAllLocalities.Value = "true"
    Dim FuzzyMatch As [Option] = New [Option]()
    FuzzyMatch.Name = "FuzzyMatch"
    FuzzyMatch.Value = "true"
    Dim MaxResults As [Option] = New [Option]()
    MaxResults.Name = "MaxResults"
    MaxResults.Value = "10"
    'Invoke the web service method.
    Dim proxy As LocationSoapClient = New LocationSoapClient()
    Dim results As TownNameOutput = proxy.AutoCompleteTowns("your-username", "your-password", licence, townName, New [Option]() {SearchAllLocalities, FuzzyMatch, MaxResults})
    '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.Towns
        '  A list of matching UK town names
    End If
End Sub

Public Sub AutoCompleteTowns(licence As String, townName As String)
  Dim rs As ADODB.Recordset
  Set rs = New ADODB.Recordset
  rs.Open "https://webservices.data-8.co.uk/recordset.ashx?service=Location&method=AutoCompleteTownsSimple" &
    "&username=your-username" &
    "&password=your-password" &
    "&licence=" & licence &
    "&townName=" & townName
  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:
      'Item
    End If
  End If
End Sub