Function LöscheWert(ByVal <MeinWert> As Long) As Boolean
 
        Dim myDataTable As DataTable = DataSet11.Tables("<MeineTabelle>")
        Dim myDataRow As DataRow
 
        Dim i As Integer = 0
        Dim j As Integer = myDataTable.Rows.Count - 1
 
        For i = 0 To j
            myDataRow = myDataTable.Rows(i)
            'durchläuft alle DataRows in der DataTable
 
            If Clng(myDataRow("<MeineSpalte>")) = <MeinWert> Then
                myDataRow.Delete()
            End If
        Next
        Me.Adapter_myDataTable.Update(Me.DataSet11, "<MeineTabelle>")
End Function

___________________________
Greez Smartyx