Public Class frmAuthorSearch

    Dim aAuthorTier As authortier
    Dim aAuthorDataSet As steveDataSet
    Dim aBindingSource As New BindingSource
    Dim binded As Boolean = False

    Private Sub btnSearch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSearch.Click

        aAuthorDataSet = aAuthorTier.getDataSet2(txtLastName.Text)

        With aBindingSource
            .DataMember = "authors"
            .DataSource = aAuthorDataSet
        End With

        If Not binded Then

            lblFirstName.DataBindings.Add("text", aBindingSource, "fname")
            lblLastName.DataBindings.Add("text", aBindingSource, "lname")
            lblGenre.DataBindings.Add("text", aBindingSource, "genre")

            binded = True

        End If

    End Sub

    Private Sub frmAuthorSearch_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        aAuthorTier = New authortier

 

    End Sub
End Class