idiotic

 Private Function RemoveEmptyRows(ByVal dt As DataTable) As DataTable
        Dim rowIndexes As New ArrayList
        Dim changed As New DataTable
        dt.AcceptChanges()
        For i As Integer = 0 To dt.Rows.Count - 1
            If dt.Rows(i).Item(2).ToString = String.Empty Then
                rowIndexes.Add(i)
            End If
        Next
        For Each index As Integer In rowIndexes
            dt.Rows(index).Delete()
        Next
        dt.AcceptChanges()
        changed = dt.Copy
        Return changed
    End Function