' Return True if a field exists in a table
        ' expO1 Dataset
        ' expC1 Table
        ' expC2 Field
        Public Function FieldExist(ByVal toDataSet As DataSet, ByVal tcTable As String, _
         ByVal tcField As String) As Boolean
            Dim loColumn As DataColumnCollection
            loColumn = GetColumn(toDataSet, tcTable)
            Return loColumn.Contains(tcField)
        End Function

        ' Return True if the field exists in a table by the use of the columns
        ' expO1 Column collection
        ' expC1 Field
        Public Function FieldExistFromColumn(ByVal toColumn As DataColumnCollection, ByVal tcField As String) As Boolean
            Return toColumn.Contains(tcField)
        End Function

        ' See if a field exist from a datatable
        ' expO1 Datatable
        ' expC1 Field
        Public Function FieldExist(byval toDataTable As DataTable,ByVal tcField As String) As Boolean
            Dim lcFieldName As String = ""
            Dim llExist As Boolean = False
            Dim loRow As DataRow
            For Each loRow In toDataTable.Rows
                lcFieldName = loRow("ColumnName")
                If UCase(lcFieldName) = UCase(tcField) Then
                    llExist = True
                    Exit For
                End If
            Next
            Return llExist
        End Function