''' <summary>
    ''' This a generic function to find duplicate records in tables where the Primary Key is an integer
    ''' </summary>
    ''' <param name="FieldName">The field name used in the SQL to check for duplicate.</param>
    ''' <returns>True if duplicate records are found.</returns>
    ''' <remarks>This code should only work any field type.</remarks>
    Public Function DuplicateRecordFound(ByVal FieldName As String) As Boolean
        If Not Me.CheckColumnExists(Me.CurrentDataTable, FieldName, GetType(String)) Then
            Exit Function
        End If
 
        '-- Create the SqlCommand with an Using to automatically dispose it.
        Using cmd As New SqlCommand
            cmd.CommandType = CommandType.Text
            cmd.CommandText = String.Format("SELECT COUNT({0}) FROM {1} WHERE {0} > 0 GROUP BY {0} HAVING COUNT(1) > 0", FieldName, Me.TableNameAndSchema)
 
            '-- Execute the query and return the value
            Return CType(Me.ExecuteScalar(cmd), Integer) > 0
        End Using
    End Function


    ''' <summary>
    ''' Ensures that the column specified exists within the table.
    ''' </summary>
    ''' <param name="table"></param>
    ''' <param name="columnName"></param>
    ''' <param name="columnType"></param>
    ''' <remarks></remarks>
    Public Function CheckColumnExists(ByVal table As DataTable, ByVal columnName As String, ByVal columnType As System.Type) As Boolean
        '-- Establish Locals
        Dim col As DataColumn
        Dim columnFound As Boolean = False
 
        '-- Cycle through all of the columns so we can test on a case-insensitive basis
        For Each col In table.Columns
            '-- Check to see if the column name matches
            columnFound = col.ColumnName.Equals(columnName, StringComparison.OrdinalIgnoreCase)
 
            '-- If the column was found, exit
            If columnFound Then Exit For
        Next
 
        '-- If the column is not found then throw and error letting the developer knows that the field name passed is wrong.
        CheckColumnExists = columnFound
        If Not columnFound Then
            Dim errMsg As String = String.Format("Make sure the field name [{0}] exist in this table {1}.", columnName, Me.TableNameAndSchema)
            Throw New Exception(errMsg)
        End If
    End Function

    Public Function DuplicateRecordFound(ByVal FieldName As String) As Boolean
        If Not Me.CheckColumnExists(Me.CurrentDataTable, FieldName, GetType(String)) Then
            Exit Function
        End If
 
        '-- Create the SqlCommand with an Using to automatically dispose it.
        Using cmd As New SqlCommand
            cmd.CommandType = CommandType.Text
            cmd.CommandText = String.Format("SELECT COUNT(*) FROM {1} GROUP BY {0} HAVING COUNT(*) > 0", FieldName, Me.TableNameAndSchema)
 
            '-- Execute the query and return the value
            Return CType(Me.ExecuteScalar(cmd), Integer) > 1
        End Using
    End Function