Dim ds As New DataSet
        Dim _row As DataRow
Prüfung:
        For Each _row In ds.Tables("A").Rows
            If _row Is Nothing Then          'Hier Gültigkeitsprüfung
                ds.Tables("B").Rows.Add(_row)
                ds.Tables("A").Rows.Remove(_row)
                GoTo Prüfung
            End If
        Next