<?xml version="1.0" encoding="utf-8"?>
<Witze>
  <Witz>
    <Kategorie>Autos</Kategorie>
    <Text>Ein Mann fährt mit seinem Wagen...</Text>
  </Witz>
  <Witz>
    <Kategorie>Blondinen</Kategorie>
    <Text>Eine Blondine fährt mit ihrem Wagen...</Text>
  </Witz>
  <Witz>
    <Kategorie>Autos</Kategorie>
    <Text>Ein Mann fährt wieder mit seinem Wagen...</Text>
  </Witz>
  <Witz>
    <Kategorie>Blondinen</Kategorie>
    <Text>Noch eine Blondine fährt mit ihrem Wagen...</Text>
  </Witz>
</Witze>

    Dim bs1 As BindingSource
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Dim ds As New DataSet
        ds.ReadXml("F:\TestDaten\Witze.xml")

        bs1 = New BindingSource(ds, "Witz")

        Dim kategorien As New List(Of String)
        For Each dr As DataRow In ds.Tables("Witz").Rows
            Dim k As String = dr("Kategorie")
            If Not kategorien.Contains(k) Then
                kategorien.Add(k)
            End If
        Next
        kategorien.Sort()

        ComboBox1.DataSource = kategorien
 
    End Sub

    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, _
      ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
        bs1.Filter = "Kategorie='" & ComboBox1.Text & "'"
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Dim idx As Integer = Int(Rnd() * bs1.Count)
        TextBox1.Text = bs1(idx)("Text")
    End Sub

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist