Imports System
Imports System.Data

module testDSServiceClass
    sub main
        dim myTest as new testDSService
        dim response as DataSet = myTest.getDataSet()
    dim row as DataRow

        console.writeLine("DataSet retrieved...here comes the data!")
        for each row in response.Tables("authors").Rows
            Console.WriteLine(row("au_lname").ToString())
    next
    end sub
end module