Dim dtGenres As New DataTable
Dim SavePath As String="D:\irgendwas"
 
 
Private Sub XMLLaden()
Initialize_dtGenres
ReadXML
 
'MachWasMitDerDataTable
 
End Sub
 
Private Sub Initialize_dtGenres()
 
        dtGenres.TableName = "Genres"
 
        Dim keys(1) As DataColumn
        Dim column As New DataColumn
        column.DataType = System.Type.GetType("System.Int32")
        With column
            .ColumnName = "ID"
            .AutoIncrement = True
            .AutoIncrementStep = 1
        End With
        dtGenres.Columns.Add(column)
        keys(0) = column
        dtGenres.PrimaryKey = keys
 
        column = New DataColumn
        column.DataType = System.Type.GetType("System.String")
        column.ColumnName = "Genre"
        dtGenres.Columns.Add(column)
 
    End Sub
 
    Private Sub ReadXML()
        Dim SavePathXML As String = System.IO.Path.Combine(SavePath, _
          "Genres.xml")
        If System.IO.File.Exists(SavePathXML) Then
            dtGenres.ReadXml(SavePathXML)
        End If
    End Sub

EALA FREYA FRESENA