Any thoughts on why this is not committing to the db I get the above error ob the db.


Code:
    Public Function SetCustomProperty(ByVal sPath As String, ByVal Name As String, ByVal Value As String) As Boolean

        Dim Builder As DatabaseSummaryInfoBuilder
        Using db As Database = New Database()
            db.ReadDwgFile(sPath, FileShare.ReadWrite, True, "")
            Builder = New DatabaseSummaryInfoBuilder(db.SummaryInfo)
            Using tr As Transaction = db.TransactionManager.StartTransaction()

                Try
                    If Builder.CustomPropertyTable(Name) Then
                        Builder.CustomPropertyTable.Item(Name) = Value
                    Else
                        Builder.CustomPropertyTable.Add(Name, Value)
                    End If

                    db.SummaryInfo = Builder.ToDatabaseSummaryInfo
                Catch
                    Return False
                End Try

                tr.Commit()
            End Using
        End Using
        Return True
    End Function