Public Class Form1 Inherits System.Windows.Forms.Form Friend WithEvents MenuItem1 As System.Windows.Forms.MenuItem Friend WithEvents MainMenu1 As System.Windows.Forms.MainMenu Private oDS As DataSet Private oWorkBC As BindingManagerBase Public Sub New() MyBase.New() 'This call is required by the Windows Form Designer. InitializeComponent() LoadData() BindData() 'Add any initialization after the InitializeComponent() call End Sub Private Sub LoadData() oDS = New DataSet 'Load data into DataSet Dim FsXML1 As New FileStream("Work.xml"), FileMode.Open, FileAccess.Read) Dim FsXSD1 As New FileStream("Work.xsd"), FileMode.Open, FileAccess.Read) 'Load the schema into the DataSet Dim xtrXSD1 As New XmlTextReader(FsXSD1) oDS.ReadXmlSchema(xtrXSD1) xtrXSD1.Close() FsXSD1.Close() 'Load the data into the DataSet Dim xtrXML1 As New XmlTextReader(FsXML1) oDS.ReadXml(xtrXML1) xtrXML1.Close() FsXML1.Close() End Sub Private Sub BindData() 'Me.LblTask_Desc.DataBindings.Add(New Binding("Text", oDS, "work.task_desc")) 'CRASH Me.LblTask_Desc.DataBindings.Add(New Binding("Text", oDS.Tables("work"), "task_desc")) 'Me.TxtComments.DataBindings.Add(New Binding("Text", oDS, "work.comments")) 'CRASH Me.TxtComments.DataBindings.Add(New Binding("Text", oDS.Tables("work"), "comments")) 'Me.oWorkBC = Me.BindingContext(oDS,"work")) 'CRASH Me.oWorkBC = Me.BindingContext(oDS.Tables("work")) End Sub END Class</Public Class Form1 Inherits System.Windows.Forms.Form Friend WithEvents MenuItem1 As System.Windows.Forms.MenuItem Friend WithEvents MainMenu1 As System.Windows.Forms.MainMenu Private oDS As DataSet Private oWorkBC As BindingManagerBase Public Sub New() MyBase.New() 'This call is required by the Windows Form Designer. InitializeComponent() LoadData() BindData() 'Add any initialization after the InitializeComponent() call End Sub Private Sub LoadData() oDS = New DataSet 'Load data into DataSet Dim FsXML1 As New FileStream("Work.xml"), FileMode.Open, FileAccess.Read) Dim FsXSD1 As New FileStream("Work.xsd"), FileMode.Open, FileAccess.Read) 'Load the schema into the DataSet Dim xtrXSD1 As New XmlTextReader(FsXSD1) oDS.ReadXmlSchema(xtrXSD1) xtrXSD1.Close() FsXSD1.Close() 'Load the data into the DataSet Dim xtrXML1 As New XmlTextReader(FsXML1) oDS.ReadXml(xtrXML1) xtrXML1.Close() FsXML1.Close() End Sub Private Sub BindData() 'Me.LblTask_Desc.DataBindings.Add(New Binding("Text", oDS, "work.task_desc")) 'CRASH Me.LblTask_Desc.DataBindings.Add(New Binding("Text", oDS.Tables("work"), "task_desc")) 'Me.TxtComments.DataBindings.Add(New Binding("Text", oDS, "work.comments")) 'CRASH Me.TxtComments.DataBindings.Add(New Binding("Text", oDS.Tables("work"), "comments")) 'Me.oWorkBC = Me.BindingContext(oDS,"work")) 'CRASH Me.oWorkBC = Me.BindingContext(oDS.Tables("work")) End Sub END Class>Sylvain,