Dim myreader As SqlDataReader
        Dim dte As New DataTable("Extra")
        Dim MeinText As String = TextBox1.Text
        Dim Trefferliste() As String
        Dim suchbegriff As String
        Trefferliste = MeinText.Split(" ")
        For Each Treffer As String In Trefferliste
            suchbegriff = Treffer.Trim
            myreader = reader("SELECT dbo.tblKategorie.Kategorie," & _
              "dbo.tblUnterkategorie.Unterkategorie, dbo.tblFehler.Fehler," & _
              "dbo.tblUrsache.Ursache, dbo.tblUrsache.Fehlerstatus," & _
              "dbo.tblUrsache.Details " & _
                              "FROM dbo.tblKategorie INNER JOIN" & _
                              "dbo.tblUnterkategorie ON dbo.tblKategorie.IDK =" & _
                              "dbo.tblUnterkategorie.KategorieID INNER JOIN" & _
                              "dbo.tblFehler ON " & _
                              "dbo.tblUnterkategorie.IDUK =" & _
                              "dbo.tblFehler.UnterkategorieID INNER JOIN" & _
                              "dbo.tblUrsache ON dbo.tblFehler.IDF =" & _
                              "dbo.tblUrsache.FehlerID " & _
                              "WHERE tblKategorie.Kategorie LIKE '%" & _
                              suchbegriff & "%' OR" & _
                              "tblUnterkategorie.Unterkategorie LIKE '%" & _
                              suchbegriff & "%' OR tblFehler.Fehler LIKE " & _
                              "'%" & suchbegriff & "%' OR tblUrsache.Ursache" & _
                              "LIKE '%" & suchbegriff & "%' OR" & _
                              "tblUrsache.Details LIKE '%" & suchbegriff & "%'")
            dte.Load(myreader)
            DataGridView1.DataSource = dte
            DataGridView1.Columns("Details").Visible = False
            DataGridView1.Visible = True
            myreader.Close()
 
        Next