用数组的方式添加多个主键:
Dim ds As New DataSet
With ds.Tables.Add("Customer")
.Columns.Add("CustomerId", GetType(Integer))
.Columns.Add("OrderId", GetType(String))
.PrimaryKey = New DataColumn() {.Columns("CustomerId"), .Columns("OrderId")}
End With