Public Sub FillAllWithXMLBasics(ByVal ValidationKey As String)
     '-- Establish Locals
     Dim lcFile As String = MicroFour.StrataFrame.Strings.StringBasics.AddBS(System.IO.Path.GetDirectoryName(System.Reflection.Assembly.GetExecutingAssembly().Location))
     '-- Save the XML file to disk
     lcFile &= ConstantInformation.ServerSettingsXMLFileName
     '-- Get all data columns from the TableSchema in the BO
     ' to pass it in the xmlBasics.OpenXmlFile 
     Dim boTableColumnArray As New List(Of DataColumn)
     For Each I As DataColumn In Me.CreateTableSchema
          boTableColumnArray.Add(I)
     Next
     '-- Load the XML file and add one row
     _myXMLDS = XmlBasics.OpenXmlFile("ConsoleSettings", lcFile, boTableColumnArray)
     If _myXMLDS.Tables("ConsoleSettings").Rows.Count = 0 Then
          _myXMLDS.Tables("ConsoleSettings").Rows.Add()
     End If
     '-- Move the data into the business object
     Me.CopyDataFrom(_myXMLDS.Tables("ConsoleSettings"), MicroFour.StrataFrame.Business.BusinessCloneDataType.ClearAndFillFromCompleteTable)
     '-- In this case we need only one record so 
     ' if there is no record, add one here.
     If Me.Count = 0 Then
          Me.Add()
          Me.CurrentDataTable.AcceptChanges()
     End If
End Sub

Private Sub SaveToXML()
     '-- Establish Locals
     Dim lcFile As String = MicroFour.StrataFrame.Strings.StringBasics.AddBS(System.IO.Path.GetDirectoryName(System.Reflection.Assembly.GetExecutingAssembly().Location))
     '-- Save the XML file to disk
     lcFile &= ConstantInformation.ServerSettingsXMLFileName
     '-- I am not sure if the file needs to be deleted
     If System.IO.File.Exists(lcFile) Then
          System.IO.File.Delete(lcFile)
     End If
     '-- Remove the Row created in the FillAllWithXMLBasics and import the one from the BO.
     '-- I guess there is probably a better way to do this?
     _myXMLDS.Tables("ConsoleSettings").Rows.RemoveAt(0)
     _myXMLDS.Tables("ConsoleSettings").ImportRow(Me.CurrentRow)
     '-- Write the XML file back to disk. Notice that you DO NOT NEED the validation key
     ' to write back to disk. This is used only for opening (and the creation of) the XML table.
     XmlBasics.WriteXmlFile(_myXMLDS, lcFile, False)
     Me.CurrentDataTable.AcceptChanges()
End Sub

 
Public Sub FillAll()
     '-- Establish Locals
     Dim loDS As New DataSet
     Dim lcFile As String = MicroFour.StrataFrame.Strings.StringBasics.AddBS(System.IO.Path.GetDirectoryName(System.Reflection.Assembly.GetExecutingAssembly().Location))
     '-- Save the XML file to disk
     lcFile &= ConstantInformation.ServerSettingsXMLFileName
     If Not System.IO.File.Exists(lcFile) Then
          Me.CurrentDataTable.WriteXml(lcFile, XmlWriteMode.WriteSchema, True)
     End If
     '-- Load the XML file
     loDS.ReadXml(lcFile)
     '-- Move the data into the business object
     Me.CopyDataFrom(loDS.Tables(0), MicroFour.StrataFrame.Business.BusinessCloneDataType.ClearAndFillFromCompleteTable)
     *-- If there is no record, add one here.
     If Me.Count = 0 Then
          Me.Add()
          Me.CurrentDataTable.AcceptChanges()
     End If
     '-- Clean Up
     loDS.Dispose()
End Sub