Using .NET DataSet in Flex 2

ASP.NET Code:

Public Class authorVO
     Public authorID As Integer
     Public authorName As String
     Public authorStatus As String
End Class

<WebMethod()> _
Public Function getAuthors(ByVal authorID As Integer) As authorVO()

Dim myConnection As SqlConnection = New _
     SqlConnection("server=YourServerName;uid=YourUserID;pwd=YourPassword;database=authors")
Dim myCommand As SqlCommand = New _
     SqlCommand("getAuthors", myConnection)

myCommand.CommandType = CommandType.StoredProcedure

Dim paramAuthorID As SqlParameter = New SqlParameter("@AuthorID", SqlDbType.Int)
paramAuthorID.Value = authorID
myCommand.Parameters.Add(paramAuthorID)

myConnection.Open()
Dim myDataAdapter As SqlDataAdapter = New SqlDataAdapter
myDataAdapter.SelectCommand = myCommand

Dim ds As DataSet = New DataSet
myDataAdapter.Fill(ds, "DataSet")
myConnection.Close()
myConnection.Dispose()

Dim i As Integer
i = 0

Dim authors As authorVO() = New authorVO(ds.Tables(0).Rows.Count - 1) {}
Dim aRow As DataRow

For Each aRow In ds.Tables(0).Rows
     authors(i) = New authorVO
     authors(i).authorID = CInt(aRow("authorID"))
     authors(i).authorName = CStr(aRow("authorName"))
     authors(i).authorStatus = CStr(aRow("authorStatus"))
     i += 1
Next

Return authors

ds.Dispose()
myDataAdapter.Dispose()

End Function