Public Class Form1
  Dim conn As New SqlConnection("Server=.\SQLEXPRESS;Initial" & _
    "Catalog=Import;Integrated Security=True")
  Dim da As New SqlDataAdapter("SELECT * FROM Auftragsdatensatz", conn)
  Dim bs As New BindingSource
  Dim ds As New DataSet
 
  Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
    System.EventArgs) Handles Button1.Click
    ds.Clear()
    da.Fill(ds, "AuftragsDatensatz")
    bs.DataSource = ds
    bs.DataMember = "AuftragsDatensatz"
    DataGridView1.DataSource = bs
  End Sub
 
 
 
  Private Sub DataGridView1_CellFormatting(ByVal sender As System.Object, ByVal _
    e As System.Windows.Forms.DataGridViewCellFormattingEventArgs) Handles _
    DataGridView1.CellFormatting
 
    'Spalte nach der ein bestimmter Wert gesucht wird=> wenn Wert vorhanden 
    ' wird Zeile markiert
    If DataGridView1.Columns(e.ColumnIndex).Name = "TYP" Then
      If e.RowIndex < DataGridView1.Rows.Count Then
        If e.Value.ToString.IndexOf(TextBox1.Text) >= 0 Then
 
 
          ''Markiert die jeweilige Zelle. Das hier funktioniert einwandfrei. _
            Nur bei den restlichen Spalten gibts Probleme (siehe ELSE-Anweisung)
          'e.CellStyle.ForeColor = Color.Black
          'e.CellStyle.BackColor = Color.Red
 
          For i As Integer = 0 To DataGridView1.ColumnCount - 1
            DataGridView1.Rows(e.RowIndex).Cells(i).Style.BackColor = _
              Color.Yellow
            DataGridView1.Rows(e.RowIndex).Cells(i).Style.ForeColor = Color.Red
          Next
 
        Else
 
          'Notwendig zum die Spalten, die nicht den Typ haben, in normalen 
          ' Farben anzeigen. Eigentlich sollte ich diese Anweisung nicht 
          ' brauchen, aber aus irgendeinem Grund
          'markiert er in der oberen IF-Schleife ALLE Spalten Gelb (außer die 
          ' erste).
          For i As Integer = 0 To DataGridView1.ColumnCount - 1
            DataGridView1.Rows(e.RowIndex).Cells(i).Style.BackColor = _
              Color.White
            DataGridView1.Rows(e.RowIndex).Cells(i).Style.ForeColor = _
            Color.Black
          Next
 
        End If
      End If
    End If
  End Sub
End Class