Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        If TextBox1.Text.Length > 0 Then

            Suchbegriff = TextBox1.Text

            Dim conn As New MySqlConnection
            Dim da As MySqlDataAdapter
            Dim ds As New DataSet
            Dim dt As New DataTable

            conn.ConnectionString = "server=127.0.0.1;port=3306;user=root; password=;database=wke"
            da = New MySqlDataAdapter("", conn)
            da.SelectCommand.CommandText = "SELECT * FROM `Artikel` WHERE ( `ArtikelName` LIKE '%" & Suchbegriff & "%' OR `ArtikelBeschreibung` LIKE '%" & Suchbegriff & "%' OR `ArtikelKategorie` LIKE '%" & Suchbegriff & "%')"
            da.SelectCommand.CommandType = CommandType.Text

            dt = New DataTable("Artikel")

            ds.Tables.Add(dt)

            da.Fill(dt)

            Dim Zeile As DataRow
            For l = 0 To dt.Rows.Count - 1
                Zeile = dt.Rows(l)
                Gefunden = +1
            Next
            Label3.Text = "" & Gefunden & " Artikel gefunden mit dem Suchbegriff '" & Suchbegriff & "'."
            Gefunden = 0
        End If

    End Sub