Private Sub openFileDialog1_FileOk(sender As Object, e As _
   System.ComponentModel.CancelEventArgs) Handles OpenFileDialog1.FileOk
        Dim filePath As String = OpenFileDialog1.FileName
        Dim extension As String = Path.GetExtension(filePath)
        Dim header As String = If(rbHeaderYes.Checked, "YES", "NO")
        Dim conStr As String, sheetName As String
 
        conStr = String.Empty
        Select Case extension
 
            Case ".xls"
                'Excel 97-03
                conStr = String.Format(Excel03ConString, filePath, header)
                Exit Select
 
            Case ".xlsx"
                'Excel 07
                conStr = String.Format(Excel07ConString, filePath, header)
                Exit Select
        End Select
 
        'Get the name of the First Sheet.
        Using con As New OleDbConnection(conStr)
            Using cmd As New OleDbCommand()
                cmd.Connection = con
                con.Open()
                Dim dtExcelSchema As DataTable = con.GetOleDbSchemaTable( _
                  OleDbSchemaGuid.Tables, Nothing)
                sheetName = dtExcelSchema.Rows(0)("TABLE_NAME").ToString()
                con.Close()
            End Using
        End Using
 
        'Read Data from the First Sheet.
        Using con As New OleDbConnection(conStr)
            Using cmd As New OleDbCommand()
                Using oda As New OleDbDataAdapter()
                    Dim dt As New DataTable()
                    cmd.CommandText = (Convert.ToString("SELECT * From [") & _
                      sheetName) + "]"
                    cmd.Connection = con
                    con.Open()
                    oda.SelectCommand = cmd
                    oda.Fill(dt)
                    con.Close()
 
                    'Populate DataGridView.
                    dataGridView1.DataSource = dt
                End Using
            End Using
        End Using
    End Sub

	2017050000000	 AHEF2ND	 5N0512011BS	1	1	 15.05.2017 14:00:35
	2017050000000	 AHEF2NE	 5N0512011BS	1	1	 15.05.2017 14:00:35
	2017050000000	 AHEF2NH	 5N0512011BS	1	1	 15.05.2017 14:01:15
	2017050000000	 AHEF2NI	 5N0512011BS	1	1	 15.05.2017 14:01:15

  tbx_Eingabe_Feld.Text = tbx_Eingabe_Feld.Text.Trim
        Dim strSuchwort = tbx_Eingabe_Feld.Text
        'Pflichtfeld prüfen
        If String.IsNullOrEmpty(strSuchwort) Then : Fehler_Pflichtfeld_Eingabe( _
          "Eingabe:") : Return : End If
        'Suchen in DGV
        Dim searchIndex = 0
        DataGridView1.ClearSelection()
        For Each row As DataGridViewRow In DataGridView1.Rows
 
            For Each cell As DataGridViewCell In row.Cells
                If cell.Value.StartsWith(strSuchwort, _
                  StringComparison.InvariantCultureIgnoreCase) Then
 
                    cell.Selected = True
 
                    DataGridView1.CurrentCell = DataGridView1.SelectedCells(1)
 
                    'Exit For
                End If
            Next
        Next
        DataGridView1.Visible = True

              "Suchen markieren"
	2017050000000	 AHEF2ND	 5N0512011BS	1	1	 15.05.2017 14:00:35
	2017050000000	 AHEF2NE	 5N0512011BS	1	1	 15.05.2017 14:00:35
	2017050000000	 AHEF2NH	 5N0512011BS	1	1	 15.05.2017 14:01:15
	2017050000000	 AHEF2NI	 5N0512011BS	1	1	 15.05.2017 14:01:15
	2017050000000	 AHEF2NL	 5N0512011BS	1	1	 15.05.2017 14:01:51
	2017050000000	 AHEF2NM	 5N0512011BS	1	1	 15.05.2017 14:01:51
	2017050000000	 AHEF2NP	 5N0512011BS	1	1	 15.05.2017 14:02:30
	2017050000000	 AHEF2NQ	 5N0512011BS	1	1	 15.05.2017 14:02:30
	2017050000000	 AHEF2NT	 5N0512011BS	1	1	 15.05.2017 14:03:09
	2017050000000	 AHEF2NU	 5N0512011BS	1	1	 15.05.2017 14:03:09
	2017050000000	 AHEF2NX	 5N0512011BS	1	1	 15.05.2017 14:03:46
	2017050000000	 AHEF2NY	 5N0512011BS	1	1	 15.05.2017 14:03:46
	2017050000000	 AHEF2O1	 5N0512011BS	1	1	 15.05.2017 14:04:14
	2017050000000	 AHEF2O2	 5N0512011BS	1	1	 15.05.2017 14:04:14
	2017050000000	 AHEF2O5	 5N0512011BS	1	1	 15.05.2017 14:04:44
	2017050000000	 AHEF2O6	 5N0512011BS	1	1	 15.05.2017 14:04:44
	2017050000000	 AHEF2O9	 5N0512011BS	1	1	 15.05.2017 14:05:20
	2017050000000	 AHEF2OA	 5N0512011BS	1	1	 15.05.2017 14:05:20
	2017050000000	 AHEF2OD	 5N0512011BS	1	1	 15.05.2017 14:05:57
	2017050000000	 AHEF2OE	 5N0512011BS	1	1	 15.05.2017 14:05:57
	2017050000000	 AHEF2OH	 5N0512011BS	1	1	 15.05.2017 14:06:46
	2017050000000	 AHEF2OI	 5N0512011BS	1	1	 15.05.2017 14:06:46
	2017050000000	 AHEF2OL	 5N0512011BS	1	1	 15.05.2017 14:07:24
	2017050000000	 AHEF2OM	 5N0512011BS	1	1	 15.05.2017 14:07:24
	2017050000000	 AHEF2OP	 5N0512011BS	1	1	 15.05.2017 14:09:24
	2017050000000	 AHEF2OQ	 5N0512011BS	1	1	 15.05.2017 14:09:24
	2017050000000	 AHEF2OT	 5N0512011BS	1	1	 15.05.2017 14:09:51
	2017050000000	 AHEF2OU	 5N0512011BS	1	1	 15.05.2017 14:09:51
	2017050000000	 AHEF2OX	 5N0512011BS	1	1	 15.05.2017 14:10:17
	2017050000000	 AHEF2OY	 5N0512011BS	1	1	 15.05.2017 14:10:17

Public Class frmMultiSearch
 
    Dim WithEvents mtbo As New MaskedTextBox With _
        {.Parent = Me, .Width = 80}
 
    Dim dt As New DataTable
 
    Dim bs As New BindingSource
    Dim WithEvents dgv As New DataGridView With _
        {.Parent = Me, .Size = New Size(400, 400), .Top = 50, _
         .DataSource = bs, _
         .AllowUserToAddRows = False}
 
    Dim search_columnindex As Integer = 1 'Die kritische Spalte
 
    Dim searchlist As New List(Of String) 'Liste der Suchbegriffe
 
 
    Private Sub frmMultiSearch_Load(sender As System.Object, _
                    e As System.EventArgs) Handles MyBase.Load
 
        Me.Size = New Size(450, 500)
 
        mtbo.TextMaskFormat = MaskFormat.ExcludePromptAndLiterals
        mtbo.Mask = ">LLLL0LL"  'Eingabemaske für Suchstring
 
        'Die oben gegebenen Daten irgendwie in die Datatable ..... 
        For i As Integer = 0 To 4
            dt.Columns.Add("SP_" & CStr(i))
        Next i
 
        Dim lines() As String = IO.File.ReadAllLines("C:\daten\ex_xls.txt")
        For Each line As String In lines
            Dim fields() As String = line.Split(" "c)
            Dim k As Integer = -1
            Dim row As DataRow = dt.NewRow
            For Each field As String In fields
                If Not field.Trim = "" AndAlso k < 4 Then
                    k += 1
                    row(k) = field
                End If
            Next
            dt.Rows.Add(row)
        Next
 
        bs.DataSource = dt
    End Sub
 
 
    Private Sub mtbo_KeyDown(sender As Object, _
                e As System.Windows.Forms.KeyEventArgs) Handles mtbo.KeyDown
 
        If e.KeyCode = Keys.Return Then
            If Not mtbo.MaskFull Then
                Dim ret As MsgBoxResult = _
                    MsgBox("Keine vollständige Such-Eingabe", _
                    MsgBoxStyle.OkCancel)
                If ret = MsgBoxResult.Cancel Then Exit Sub
            End If
 
            'Anzahl der gefundenen Zeilen (incl. bereits markierte)
            Dim row_found As Integer = _
                   Aggregate row As DataRow In dt.AsEnumerable _
                      Where row(search_columnindex).ToString.StartsWith( _
                      mtbo.Text) _
                   Into Count()
 
            MsgBox(row_found.ToString & " Zeilen gefunden")
 
            If row_found > 0 AndAlso Not searchlist.Contains(mtbo.Text) Then
               searchlist.Add(mtbo.Text)
               dgv.InvalidateColumn(search_columnindex)
            End If            
        End If
    End Sub
 
 
    Private Sub dgv_CellPainting(sender As Object, _
                  e As System.Windows.Forms.DataGridViewCellPaintingEventArgs) _
            Handles dgv.CellPainting
 
        If e.RowIndex = -1 Or e.ColumnIndex = -1 Then Exit Sub
 
        Dim vl As String = _
            dgv.Rows(e.RowIndex).Cells(e.ColumnIndex).Value.ToString
 
        'Entspricht der Zellwert einem Suchbegriff (Startswith)
        Dim searched As Boolean
        For i As Integer = 0 To searchlist.Count - 1
            searched = vl.StartsWith(searchlist(i))
            If searched Then Exit For
        Next i
 
        If searched Then
            'Zelle gelb markieren
            Using bry As New SolidBrush(Color.Yellow)
                e.Graphics.FillRectangle(bry, e.CellBounds)
            End Using
            e.Paint(e.CellBounds, DataGridViewPaintParts.Border)
            e.Paint(e.CellBounds, DataGridViewPaintParts.ContentForeground)
            e.Handled = True
        End If
    End Sub
End Class

If e.RowIndex = -1 Or e.ColumnIndex = -1 Then Exit Sub
If Not e.ColumnIndex = search_columnindex Then Exit Sub
If IsDBNull(dgv.Rows(e.RowIndex).Cells(e.ColumnIndex).Value) Then Exit Sub

 For i As Integer = 0 To 4
            dt.Columns.Add("SP_" & CStr(i))
        Next i
 
        Dim lines() As String = IO.File.ReadAllLines( _
          "D:\Sperrlisten\ex_xls.txt")
        For Each line As String In lines
            Dim fields() As String = line.Split(" "c)
            Dim k As Integer = -1
            Dim row As DataRow = dt.NewRow
            For Each field As String In fields
                If Not field.Trim = "" AndAlso k < 4 Then
                    k += 1
                    row(k) = field
                End If
            Next
            dt.Rows.Add(row)
        Next

        SP_0            SP_1            SP_2          SP_3  SP_4   SP_5
	2.02E+12 	AHEF2ND 	5N0512011BS   1     1 	   15.05.2017 14:00:35
	2.02E+12 	AHEF2NE 	5N0512011BS   1     1 	   15.05.2017 14:00:35
	2.02E+12 	AHEF2NH 	5N0512011BS   1     1 	   15.05.2017 14:01:15
	2.02E+12 	AHEF2NI 	5N0512011BS   1     1 	   15.05.2017 14:01:15
	2.02E+12 	AHEF2NL 	5N0512011BS   1     1 	   15.05.2017 14:01:51
	2.02E+12 	AHEF2NM 	5N0512011BS   1     1 	   15.05.2017 14:01:51
	2.02E+12 	AHEF2NP 	5N0512011BS   1     1 	   15.05.2017 14:02:30
	2.02E+12 	AHEF2NQ 	5N0512011BS   1     1 	   15.05.2017 14:02:30
	2.02E+12 	AHEF2NT 	5N0512011BS   1     1 	   15.05.2017 14:03:09
	2.02E+12 	AHEF2NU 	5N0512011BS   1     1 	   15.05.2017 14:03:09
	2.02E+12 	AHEF2NX 	5N0512011BS   1     1 	   15.05.2017 14:03:46
	2.02E+12 	AHEF2NY 	5N0512011BS   1     1 	   15.05.2017 14:03:46
	2.02E+12 	AHEF2O1 	5N0512011BS   1     1 	   15.05.2017 14:04:14
	2.02E+12 	AHEF2O2 	5N0512011BS   1     1 	   15.05.2017 14:04:14

Private Sub DGV_Excel1_CellPainting(sender As Object, _
                   e As System.Windows.Forms.DataGridViewCellPaintingEventArgs) _
             Handles DGV_Excel1.CellPainting
 
        If e.RowIndex = -1 Or e.ColumnIndex = -1 Then Exit Sub
        If Not e.ColumnIndex = search_columnindex Then Exit Sub
        If IsDBNull(DGV_Excel1.Rows(e.RowIndex).Cells(e.ColumnIndex).Value) _
          Then Exit Sub
 
        Dim vl As String = _
            DGV_Excel1.Rows(e.RowIndex).Cells(e.ColumnIndex).Value.ToString
 
        'Entspricht der Zellwert einem Suchbegriff (Startswith)
        Dim searched As Boolean
        For i As Integer = 0 To searchlist.Count - 1
            searched = vl.StartsWith(searchlist(i))
            If searched Then Exit For
        Next i
 
        If searched Then
            'Zelle gelb markieren und eine DGV-Checkbox true stempeln
            Using bry As New SolidBrush(Color.Yellow)
                e.Graphics.FillRectangle(bry, e.CellBounds)
            End Using
            e.Paint(e.CellBounds, DataGridViewPaintParts.Border)
            e.Paint(e.CellBounds, DataGridViewPaintParts.ContentForeground)
            e.Handled = True
        End If
 
    End Sub