' Dataset erzeugen und XML Datei einlesen
        Dim dataSet As DataSet = New DataSet
        dataSet.ReadXml("Bestandsliste.xml", XmlReadMode.IgnoreSchema)
 
        ' Dataset an Datagridview binden
        For i = 0 To dataSet.Tables.Count - 1
            DataGridView1.DataSource = dataSet.Tables(i)
        Next
 
        ' DataGrid Select Modus auf gante Zeile stellen
        DataGridView1.SelectionMode = DataGridViewSelectionMode.FullRowSelect
        DataGridView1.MultiSelect = False
 
        ' alternierende Farbeinstellungen für das Datagrid
        With DataGridView1.DefaultCellStyle
            .BackColor = Color.Khaki
            .ForeColor = Color.DimGray
        End With
        ' alternierende Farbeinstellungen für das Datagrid
        With DataGridView1.AlternatingRowsDefaultCellStyle
            .BackColor = Color.GreenYellow
            .ForeColor = Color.DimGray
        End With
        ' Farbe der aktuellen Zeile im Datagrid
        With DataGridView1.DefaultCellStyle
            .SelectionBackColor = Color.Gold
            .SelectionForeColor = Color.Black
        End With

-------------------------------------------------
Der Weg ist das Ziel - Konfutius, China
Das Ziel ist weg - Tom Cruise, Top Gun
-------------------------------------------------