Dim XMLDatabase As DataSet = New DataSet
    Dim aIndex As Integer
    Dim aCount As Integer
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        XMLDatabase.ReadXml(Application.StartupPath & "\" & "data.xml", _
        XmlReadMode.Auto)
        aCount = XMLDatabase.Tables(Series).Rows.Count
 
     End Sub
 
Private Sub lb_Search_LinkClicked(ByVal sender As System.Object, ByVal e As _
  System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles _
  lb_Search.LinkClicked
        Search()
    End Sub
 
Private Sub Search()
 
                Dim Searchstring As New System.Text.StringBuilder("select *" & _
                  "from ")
 
        With Searchstring
            .Append(Series & " where ")
            If RadioButton_TitleGerman.Checked Then
                .Append("TitleGerman")
            ElseIf RadioButton_Title.Checked Then
                .Append("Title")
            ElseIf RadioButton_Description.Checked Then
                .Append("Description")
            ElseIf RadioButton_Director.Checked Then
                .Append("Director")
            ElseIf RadioButton_WrittenBy.Checked Then
                .Append("WrittenBy")
            ElseIf RadioButton_GuestCast.Checked Then
                .Append("GuestCast")
            ElseIf RadioButton_All.Checked Then
                .Append("TitleGerman & Title & StarDate & Description &" & _
                  "Director & WrittenBy & GuestCast & Encyclopedia")
            Else
                MsgBox("Kein Suchkriterium ausgewählt!", _
                  MsgBoxStyle.Exclamation)
                Exit Sub
            End If
            .Append(" like '%" & Box_Search.Text & "%'")
        End With
        Call DBA1()
 
End Sub
 
Sub DBA()
        Box_Episode.Text = XMLDatabase.Tables(Series).Rows(aIndex).Item( _
          "Episode")
        Box_Title.Text = XMLDatabase.Tables(Series).Rows(aIndex).Item("Title")
        Box_TitleGerman.Text = XMLDatabase.Tables(Series).Rows(aIndex).Item( _
          "TitleGerman")
        Box_StarDate.Text = XMLDatabase.Tables(Series).Rows(aIndex).Item( _
        "StarDate")
        Box_Director.Text = XMLDatabase.Tables(Series).Rows(aIndex).Item( _
        "Director")
        Box_WrittenBy.Text = XMLDatabase.Tables(Series).Rows(aIndex).Item( _
        "WrittenBy")
        Box_GuestCast.Text = XMLDatabase.Tables(Series).Rows(aIndex).Item( _
        "GuestCast")
        Box_Description.Text = XMLDatabase.Tables(Series).Rows(aIndex).Item( _
        "Description")
        Box_LexikonCheck_Temp.Text = XMLDatabase.Tables(Series).Rows( _
        aIndex).Item("Encyclopedia")
        Box_DVD.Text = XMLDatabase.Tables(Series).Rows(aIndex).Item("DVD")
        Box_BoardLink_Temp.Text = XMLDatabase.Tables(Series).Rows(aIndex).Item( _
          "BoardLink")
 
End Sub