Visual Basic

 Private Sub applysql(ByVal query As String, Optional ByVal transaction As Odbc.OdbcTransaction = Nothing)<br />
        Try<br />
            Dim command As New Odbc.OdbcCommand(query, solid, transaction)<br />
            datareader = command.ExecuteReader<br />
<br />
            bindingsource.DataSource = datareader<br />
            resultsdatgdvw.DataSource = bindingsource<br />
            resultsdatgdvw.Update()<br />
            resultsdatgdvw.AutoResizeColumns(DataGridViewAutoSizeColumnsMode.ColumnHeader)<br />
            resultslbl.Text = "Returned " & resultsdatgdvw.RowCount & " rows"<br />
            If Rollbackbtn.Enabled = False Then<br />
                transaction.Commit()<br />
            End If<br />
<br />
            datareader.close()<br />
            datareader.dispose()<br />
        Catch ex As Exception<br />
            MsgBox(ex.Message)<br />
        End Try<br />
    End Sub

Private Sub resultsdatgdvw_CellToolTipTextNeeded(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellToolTipTextNeededEventArgs) Handles resultsdatgdvw.CellToolTipTextNeeded<br />
       If e.ColumnIndex > -1 Then<br />
           e.ToolTipText = "Type: " & resultsdatgdvw.Columns(e.ColumnIndex).ValueType.ToString & " Length: " & 'Here is where I need to find the max length of the field     <br />
  End If<br />
   End Sub

'writes to bitmap and hence the file saved

gr.DrawString(txt, the_Font, Brushes.Black, 0, 0)

' writes to screen only

e.Graphics.DrawString(txt, the_Font, Brushes.Black, 0, 0)

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