'データセットにデータテーブルを追加
Dim DS As New DataSet
DS.Tables.Add(DatatableA)
DS.Tables.Add(DatatableB)

'データセットからデータテーブルを削除
DataSet.Tables.Remove(DatatableA)

'データテーブル（Dim DT as DataTable）がすでにデータセットに組み込まれているかを調べ
'組み込まれている場合は削除する
If Not DT.DataSet Is Nothing Then DT.DataSet.Tables.Remove(DT)

'新しい行を作成
Dim newRow As DataRow = DatatableA.NewRow

newRow("COL1") = "VALUE1"
newRow("COL2") = "VALUE2"

'DataTableに新しい行を追加
DatatableA.Rows.Add(newRow)

'DataTableに新しい列を追加
DatatableA.Columns.Add("COL3", Type.GetType("System.String"))

'データテーブルAからデータテーブルBにKeyColumnAとKeyColumnBのリレーションを作成
Dim relIdNo As New DataRelation("RelationNameAB", DatatableA.Columns("KeyColumnA"), DatatableB.Columns("KeyColumnB"), False)
DatatableA.ChildRelations.Add(relIdNo)

'データ行ループ（0〜最終行）
For intRow As Integer = 0 To DatatableA.Rows.Count - 1
  'リレーションテーブルの行取得
  Dim ChildRow() As DataRow
  ChildRow = DatatableA.Rows(intRow).GetChildRows("RelationNameAB")

  If ChildRow.Length = 0 Then
    'リレーションテーブルの行が見つからない場合ここに到達
  Else
    'リレーションテーブルの値取得
    strTargetValue = ChildRow(0).Item("TargetColumnB").ToString
  End If
Next