Public Function GetAuthors(ByVal state As String) As AuthorsDataSet
    Dim authorsTableAdapter As New AuthorsDataSetTableAdapters.authorsTableAdapter
    Dim authorsData As New AuthorsDataSet()
    authorsTableAdapter.Fill(authorsData.authors, state)
    Return authorsData
End Function