Visual Basic

Private Sub SearchButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SearchButton.Click
    namesList.Items.Clear()

    Me.MainTableAdapter.Connection.Open()

    Dim myCommand As OleDbCommand = Me.MainTableAdapter.Connection.CreateCommand()
    Me.MainTableAdapter.Transaction = Me.MainTableAdapter.Connection.BeginTransaction()
    myCommand.Connection = Me.MainTableAdapter.Connection
    myCommand.Transaction = Me.MainTableAdapter.Transaction

    myCommand.CommandText = "Select * from main WHERE Title Like '%" & nameTB.Text & "%' order by title asc, ID asc"
    Dim dbReader As OleDbDataReader = myCommand.ExecuteReader

    While dbReader.Read()
        Dim title As String = dbReader("Title")
        Dim ID As Integer = dbReader("ID")
        Dim qualifier As String = getQualifier(ID, Me.QualifiersTableAdapter)
        If Not qualifier Is Nothing Then
            title &= "- " & qualifier &
        End If
        namesList.Items.Add(title)
    End While
    Me.MainTableAdapter.Connection.Close()

End Sub

Private Function getQualifier(ByVal TitleID As Integer, ByVal adapter As QualifiersTableAdapter) As String
    adapter.Connection.Open()
    Dim myCommand As OleDbCommand = adapter.Connection.CreateCommand()
    adapter.Transaction = adapter.Connection.BeginTransaction
    myCommand.Connection = adapter.Connection
    myCommand.Transaction = adapter.Transaction

    myCommand.CommandText = "Select * from Qualifiers WHERE Title = " & TitleID
    Dim dbReader As OleDbDataReader = myCommand.ExecuteReader
    myCommand.Transaction.Commit()

    Dim s as String = Nothing
    If dbReader.Read() Then
        s = dbReader("Qualifier")
    End If
    adapter.Connection.Close()
    Return s


End Function

Private Sub SearchButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SearchButton.Click
        namesList.Items.Clear()

        Dim dBaseConnectionString As String = "Provider=Microsoft.jet.oledb.4.0;" & _
        "Data Source=demo.mdb" & ";"

        Dim dBaseConnection As New OleDbConnection(dBaseConnectionString)
        dBaseConnection.Open()

        Dim dBaseCommand As New OleDbCommand("Select * from main WHERE Title Like '%" & titleTB.Text & "%' order by title asc, ID asc", dBaseConnection)
        Dim dBaseDataReader As OleDb.OleDbDataReader = dBaseCommand.ExecuteReader()

        While dBaseDataReader.Read()
            Dim title As String = dbReader("Title")
            Dim ID As Integer = dbReader("ID")
            Dim qualifier As String = getQualifier(ID, dBaseConnection)
            If Not qualifier Is Nothing Then
                title &= "- " & qualifier &
            End If
            namesList.Items.Add(title)
        End While
        Me.MainTableAdapter.Connection.Close()

    End Sub

    Private Function getQualifier(ByVal TitleID As Integer, ByVal dBaseConnection As OleDbConnection) As String


        Dim dBaseCommand As New OleDbCommand("Select * from Qualifiers WHERE Title = " & TitleID, dBaseConnection)
        Dim dBaseDataReader As OleDb.OleDbDataReader = dBaseCommand.ExecuteReader()

        If dbReader.Read() Then
            Return dbReader("Qualifier")
        Else
            Return Nothing
        End If

    End Function