imports System
imports System.Data

module testDSServiceClass
    dim asyncResult as IAsyncResult

    sub main
        dim myTest as new testDSService

        ' Begin asynchronous call to retrieve authors list dataset...
        asyncResult = myTest.BegingetDataSet(Nothing, Nothing)

        ' Poll for completion.  This in effect blocks but proper threading would
        ' allow this operation to be carried out asynchronously...
        while not asyncResult.IsCompleted
    end while

        ' Get the results!
        dim response as DataSet = myTest.EndgetDataSet(asyncResult)
    dim row as DataRow

        Console.WriteLine("DataSet retrieved...here comes the data!")

        for each row in response.Tables("authors").Rows
            Console.WriteLine(row("au_fname").ToString())
    next
   end sub
end module