Public Sub UpdateTable(ByVal dt As DataTable)
        Dim da As New SqlDataAdapter("command", "connection")
        Dim trans As SqlTransaction = da.SelectCommand.Connection.BeginTransaction(IsolationLevel.Serializable)

        Try
            da.Update(dt.GetChanges(DataRowState.Deleted))
            da.Update(dt.GetChanges(DataRowState.Added))
            da.Update(dt.GetChanges(DataRowState.Modified))
            trans.Commit()
        Catch ex As SqlException
            trans.Rollback()
        End Try

    End Sub