'die daten müssten sortiert werden damit du später über die Find methode des 
'DataViews dir eine bestimte zeile raussuchen kannst
Dim intIndex as Integer
myDataSet.Tables("Name deiner tabelle oder der index")DefaultView.Sort("Name")
while myReader.Read 'hier gehst alle datensätze durch und vergleicht die
   'die Find methode gebt zurück den Index der gefundene zeile oder -1
   intIndex = myDataSet.Tables("Name deiner tabelle oder der" & _
     "index")DefaultView.Find("Helmut")
   if intIndex >= 0 then
        if myReader.Item("Name") = myDataSet.Tables("Name deiner tabelle oder" & _
          "der index")DefaultView.Item(intIndex).Item("Name") then
             myDataSet.Tables("Name deiner tabelle oder der" & _
             "index")DefaultView.Item(intIndex).Delete
         end if
   end if
wend
myDataAdapter.Update(myDataSet)