Public Class Sage200DataModel
Property Model As Sage.Data.DataModel
Private bound As Boolean
Property DataContext As Sage.Accounting.DataModel.DataContext
Public Sub New()
_Model = New Sage.Data.ModelManagement.DataModelProvider().CreateNew("Sage 200 Accounts", Nothing)
bound = _Model.BindConnection(Nothing)
DataContext = _Model.ModelContext 'Sage.Accounting.DataModel.DataContext(Model.Connection)
End Sub
End Class
-->
