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