怎样统计本次导入数据或修改数据的多少？

怎样统计本次操作改名照片的多少？

Dim dlg As new OpenFileDialog
dlg.Filter= "Excel文件|*.xls"
If dlg.ShowDialog = DialogResult.Ok Then
    Dim Book As New XLS.Book(dlg.FileName)
    Dim Sheet As XLS.Sheet = Book.Sheets(0)
    If sheet(2,0).text <> "序号" Or sheet(2,1).text <> "学校" Or sheet(2,2).text <> "姓名" Or sheet(2,15).text <> "毕结业" Then
        MessageBox.Show("您的数据源不符合数据格式,不能导入此表中的数据!", "提示")
    Else
        For i As Integer = 3 To sheet.Rows.count -1
            Dim dr As DataRow = DataTables("毕业生报表").find("学号 = \'" & sheet(i,4).text & "\'")
            If dr IsNot Nothing And sheet(i,15).text = "毕业" Then
                dr("序号") = sheet(i,0).text
                dr("学校") = sheet(i,1).text
                dr("姓名") = sheet(i,2).text
                dr("性别") = sheet(i,3).text
            ElseIf dr Is Nothing  And sheet(i,15).text = "毕业" Then
                Dim ksds As DataRow
                ksds = DataTables("毕业生报表").AddNew()
                ksds("序号") = sheet(i,0).text
                ksds("学校") = sheet(i,1).text
                ksds("姓名") = sheet(i,2).text
                ksds("性别") = sheet(i,3).text
            End If
        Next
    End If
End If

我做完后要出现一个对话，表明我这次操作修改了数据多少条，即上面的部分？增加数据多少条，即下面的部分？