Find a value in a DataTable and return an associated value.

    Public Function LookUpData(ByVal TheTable As Data.DataTable, ByVal SearchColumnName As String, ByVal TheValue As Object, ByVal ResultColumnName As String) As Object
        Dim ReturnValue As Object = Nothing
        Dim RowFilterString As String = String.Format("Convert([{0}], 'System.String') = '{1}'", SearchColumnName, TheValue.ToString)
        If TheTable.Columns.Contains(SearchColumnName) Then
            If TheTable.Columns.Contains(ResultColumnName) Then
                Dim TheDataView As New Data.DataView(TheTable, RowFilterString, "", Data.DataViewRowState.CurrentRows)
                Dim NewTable As Data.DataTable = TheDataView.ToTable
                If NewTable.Rows.Count = 1 Then 'Only Return data when there is just 1 result.
                    ReturnValue = NewTable.Rows(0).Item(ResultColumnName)
                End If
                If ReturnValue Is DBNull.Value Then
                    ReturnValue = Nothing
                End If
            End If
        End If
        Return ReturnValue
    End Function