Private Sub btnNewRow_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles btnNewRow.Click
 
        Dim mrow As DataRow       
 
 
        For Each mrow In dt.Rows
            If mrow.RowState = DataRowState.Added Then
                MsgBox("" & mrow.Item(1))
            End If
        Next
 
End Sub

Langsamkeit entdeckt