Dim openFile As New System.Windows.Forms.OpenFileDialog()
        openFile.DefaultExt = "xml"
        openFile.Filter = "XML File (*.xml)|*.xml|Alle Dateien (*.*)|*.*"
        openFile.ShowDialog()
        If openFile.FileNames.Length > 0 Then
            Dim filename As String
            For Each filename In openFile.FileNames
                Dim dsPubs As New DataSet()
 
                grd_string.ClearSelection()
                dsPubs.ReadXml(openFile.OpenFile)
 
                grd_string.DataMember = "CDatabaseConfig"
                'grd_string.DataMember = "ConnectionString"
                grd_string.DataSource = dsPubs
 
            Next
 
        End If

<?xml version="1.0" encoding="utf-8"?>
<DatabaseSettings>
 
	<test0>
    <CDatabaseConfig>
      <ConnectionString>Server=( _
        local);uid=test;pwd=;Database=test</ConnectionString>
      <DatabaseType>SQLOLEDB.1</DatabaseType>
    </CDatabaseConfig>
	</test0>
 
	<test1>
		<CDatabaseConfig>
			<ConnectionString>Server=(local);uid=Test;pwd=;Database=Test</ConnectionString>
			<DatabaseType>SQLOLEDB.1</DatabaseType>
		</CDatabaseConfig>
	</test1>
 
	<test2>
    <CDatabaseConfig>
      <ConnectionString>Server=( _
        local);uid=Test;pwd=;Database=Test</ConnectionString>
      <DatabaseType>SQLOLEDB.1</DatabaseType>
    </CDatabaseConfig>
  </test2>
 
	<test3>
    <CDatabaseConfig>
      <ConnectionString>Server=( _
        local);uid=Test;pwd=;Database=Test</ConnectionString>
      <DatabaseType>SQLOLEDB.1</DatabaseType>
    </CDatabaseConfig>
  </test3>
 
	<test4>
    <CDatabaseConfig>
      <ConnectionString>Server=( _
        local);uid=Test;pwd=;Database=Test</ConnectionString>
      <DatabaseType>SQLOLEDB.1</DatabaseType>
    </CDatabaseConfig>
  </test4>
 
</DatabaseSettings>