To delete the rows using ADO.NET the following code can be used
Dim parentColumn As DataColumn = _
DataSet1.Tables("TBLPerson").Columns("PersonID")
Dim childColumn As DataColumn = DataSet1.Tables( _
"TBLHistory").Columns("PersonID")
Dim relPersonHistory As DataRelation
relPersonHistory = New DataRelation( _
"PersonHistory", parentColumn, childColumn)
DataSet1.Relations.Add(relPersonHistory)
For Each row As DataGridViewRow In dataGridView1.SelectedRows
Dim personRow As DataRow = TryCast(row.DataBoundItem, DataRow)
If personRow IsNot Nothing Then
dim historyRows as DataRow() = personRow.GetChildRows(relPersonHistory)
For i = 0 To historyRows.Length-1
historyRows(i).Delete()
Next i
personRow.Delete()
End If
Next