Imports System

Imports System.Data

Imports System.Xml

Public Module Module1

    Public Sub Main()

        Dim data = New DataTable()

        data.Columns.Add("FieldA")

        data.Columns.Add("FieldB")

        data.Rows.Add(1, 2)

        data.Rows.Add(34, 2)

        Console.WriteLine(IsPK_DataTable(data, "FieldB"))

        Console.WriteLine(IsPK_DataTable(data, "FieldA", "FieldB"))

    End Sub

​

    Private Function IsPK_DataTable(data As DataTable, ParamArray fields As String()) As Boolean

        Return New DataView(data).ToTable(True, fields).Rows.Count = data.Rows.Count

    End Function

End Module