主题：网络状态下自动更新

这是为了实现网络状态下自动更新的代码，由于使用同一款软件管理不同项目（不同项目使用不同数据库），因此经常报错，我想实现如果使用相同项目（也就是相同数据库）的人之间实现自动保存更新，以下代码应该如何修改？

For Each dt As DataTable In DataTables
    For Each r As DataRow In Dt.DataRows
        If r.RowState = DataRowState.Modified OrElse r.RowState = DataRowState.Added Then
            Dim p As String = IIF(r.RowState = DataRowState.Added, "A#", "U#")
            r.Save()
            '一定要在保存后合成信息,因为新增行的主键在保存后才生成
            Dim msg As String = p & dt.Name & "#" & r("_Identify")
            For Each bd As QQBuddy In QQClient.Buddies
                If bd.Online  Then  
                    QQClient.Send(bd.name, msg)
                End If
            Next
        End If
    Next
    dt.Save()
Next

以下我设计的网络自动更新的代码，由于有时需要增加很多行，所以增加了黄色代码，目的是增加多行也保存，但是保存时间非常长，平均每行需要0.6秒的时间，这是什么原因，有无改进的办法。

Dim st As Date = Date.Now '将开始时间保存在变量st中
        For Each r As DataRow In DataTables("geer").DataRows
            If r.RowState = DataRowState.Modified OrElse r.RowState = DataRowState.Added Then
                                Dim p As String = IIF(r.RowState = DataRowState.Added, "A#", "U#")
                                r.Save()
                '一定要在保存后合成信息,因为新增行的主键在保存后才生成
                Dim msg As String = p & "geer & "#" & r("_Identify")
                For Each bd As QQBuddy In QQClient.Buddies
                    If bd.Online Then
                        QQClient.Send(bd.name, msg)
                    End If
                Next
            End If
                   Next
        MessageBox.Show("耗时: " & (Date.Now - st).TotalSeconds & "秒")